DouKaku?

($a="\xa6\x99\xa8") =~ s/(.)/print "\xe3\x81" . $1/eg

perl -e 'print "hello world" '

print join ( ', ', &diff ( 3, 1, 4, 1, 5, 9, 2, 6, 5 ) );

#!/usr/bin/perl
use strict;
use warnings;

print "Hello,World!";

#!/usr/bin/perl

for( $i=0; $i<100; $i++ ){
 print $i;
}

print 'test';

#!/usr/local/bin/perl

say "Hello";

#!/usr/bin/perl
use CGI;
use strict;

my $p = CGI->new();

if($ENV{REQUEST_METHOD} eq "POST"){
  print  $p->Vars();
}

exit;

print "Hello Woooorld!";

use strict;
my $m = int(rand 3) + 4; my $n = $m + int(rand(7 - $m));
my (%board, %group);

foreach my $i (1 .. $m) {
  foreach my $j (1 .. $n) {
    my $key = $i . $j;
    $board{$key} = int(rand 2);
    print $board{$key} ? '■' : '□';
    print "\n" if $j == $n;
    my $flag = 0;
    if ($i > 1) {
      my $up_key = $key - 10;
      if ($board{$key} == $board{$up_key}) {
        foreach my $item (@{$group{$board{$key}}}) {
          if ($item =~ /$up_key/) { $item .= ":$key"; $flag = 1; }
        }
      }
    }
    if ($j > 1) {
      my $left_key = $key - 1;
      if ($board{$key} == $board{$left_key}) {
        $flag++;
        if ($flag == 1) {
          foreach my $item (@{$group{$board{$key}}}) {
            $item .= ":$key" if $item =~ /$left_key/;
          }
        } else {
          my ($same) = grep { $group{$board{$key}}->[$_] =~ /$key/ } 0 .. $#{$group{$board{$key}}};
          my ($left) = grep { $group{$board{$key}}->[$_] =~ /$left_key/ } 0 .. $#{$group{$board{$key}}};
          if ($same != $left) {
            $group{$board{$key}}->[$same] = join ':', sort
              split /:/, "$group{$board{$key}}->[$same]:$group{$board{$key}}->[$left]";
            splice(@{$group{$board{$key}}}, $left, 1);
          }
        }
      }
    }
    push @{$group{$board{$key}}}, $key unless $flag;
  }
}

print "\n□の島: ", scalar(@{$group{0}}), "\n  ", join(', ', @{$group{0}}), "\n";
print "\n■の島: ", scalar(@{$group{1}}), "\n  ", join(', ', @{$group{1}}), "\n";