title: How to handle over non-ANSI characters to Crypt::Blowfish in Perl?
body: <p>How to handle over non-ANSI characters to Crypt::Blowfish in Perl?</p>
  
  <p>The following script was written in charset UTF-8 and fails only on <code>§</code> or <code>ö</code>.</p>
  
  <pre><code>#!/usr/bin/env perl
  use strict;
  use warnings FATAL =&gt; 'all';
  use utf8;
  use Crypt::Blowfish;
  my $cipher = Crypt::Blowfish-&gt;new( pack 'H16', '12345678' );
  my @chars = ( 'a', '§', 'ö', '9' );
  printf( "%s: %s",
      $_, ( eval { $cipher-&gt;encrypt( $_ x 8 ) } ) ? "ok\n" : "fail: $@" )
      for ( @chars );
  </code></pre>