my(%s,$y,$l,$t,$d);


##</code><code>##

my $k = k(\%s);


##</code><code>##

$k = k();


##</code><code>##

$k=&k;


##</code><code>##

$k=k;


##</code><code>##

my $l = $d / int(length($t) / $k) / 100;


##</code><code>##

$l = $d / int(length($t) / $k) / 100;


##</code><code>##

$l = $d / 100 / int length($t)/ $k;  


##</code><code>##

$* = $d / $t=~y///c / $k;


##</code><code>##

sub i{
  my ($g,$l,$t) = @_;
  my @c;
  ...
}


##</code><code>##

sub i{
  my ($g,@c) = @_;
  ...
}


##</code><code>##

for(3..6){u($_)}


##</code><code>##

u($_)for 3..6;


##</code><code>##

while(<STDIN>){$t.=lc$_}


##</code><code>##

$t.=lc for<>;


##</code><code>##

push @_, shift;


##</code><code>##

push@$_, shift@$_ for @AoA;


##</code><code>##

my $n = t($_,$k);
my %n = f($n);


##</code><code>##

%n = f(t($_));


##</code><code>##

%n = f t$_;


##</code><code>##

for(0..($k-1)){
  my $n = t($_,$k);
  my %n = f($n);
  my @g = b(1,\%n);
  $y   .= i(\@g,$l,\%t)
}


##</code><code>##

map{
  %n = f t$_;
  @g = b\%n,1;
  $y .= i\@g
} 0..$k-1;


##</code><code>##

@array = routine1($param1,$param2);
$result = join ':', @array;


##</code><code>##

$result = join ':', @{routine1($param1,$param2)}


##</code><code>##

for((split//,$t)){
  my $l = (split //,$y)[$c];
  my $s = join '', @$l;
  my $p = index($s,$_);
  $o   .= $p >= 0 ? $a[$p] : $_;
  $c   += $c < $k-1 ? 1 : -$k+1
}


##</code><code>##

map{
  $p  = index((join '', @{($y=~/./g)[$c]} ), $_);
  $o .= $p < 0 ? $_ : $a[$p];
  $c += $c < $k-1 ? 1 : 1-$k
} $t =~ /./gs;


##</code><code>##

for(a..z){
  if( ! $d{$_} ){
    $d{$_} = 0
  }
}


##</code><code>##

# no, you don't need a space between the 0 and the for.
$d{$_} ||= 0for a..z;


##</code><code>##

my @k = map { $_->[1] } sort { $b->[0] <=> $a->[0] } @c;
my $r = $k[0];
$r =~ s/([a-z])\s\(.*/$1/;
return $r


##</code><code>##

return( map{ $_->[1] } sort { $b->[0] <=> $a->[0] } @c )[0]


##</code><code>##

sub b{
  my( $e, $l ) = @_;
  my @g;
  for(sort keys %$l){
    push @g, [ $_, '=', (split //,'#' x int($$l{$_} * $e))]
  }
  return @g
}


##</code><code>##

sub b {
  my( $e, $l, @g) = @_;
  push @g, [ $_, (split //,'#' x int($$l{$_} * $e))] for sort keys %$l;
  @g
}


##</code><code>##

sub f{
  my %d;
  $d{$_}++ for grep /[a-z]/, split //, shift;
  for(a..z){
    if( ! $d{$_}){
      $d{$_} = 0
    }
  }
  return %d
}


##</code><code>##

sub f{
  my %d;
  $d{$_}++for grep /[a-z]/, shift=~/./g;
  $d{$_} ||= 0for a..z;
  %d
}


##</code><code>##

sub i{
  my ($g,$l,$t) = @_;
  my @c;
  for(0..25){
    my $v = v($g,$l,$t);
    push @c, o($v,$$g[0][0]);
    w($g)
  }
  my @k = map{ $_->[1] }
         sort{ $b->[0]<=>$a->[0] } @c;
  my $r = $k[0];
  $r =~ s/([a-z])\s\(.*/$1/;
  return $r
}


##</code><code>##

sub i{
  my ($g,@c) = @_;
  map{ push @c, o(v($g), $$g[0][0]); w($g) } 0..25;
  ( map{ $_->[1] } sort { $b->[0] <=> $a->[0] } @c )[0]
}


##</code><code>##

sub k{
  my $s = shift;
  my @g;
  for( sort{ $$s{$b} <=> $$s{$a} || $a cmp $b } keys %$s ){
    last if $$s{$_} < 3;
    next unless $_ =~ y/a-z// > 2;
    my @f;
    push @f, ( pos($t)-3 ) while $t =~ /$_/g;
    my $g = c(n(@f));
    $g > 2 && push @g, $g
  }
  return c(@g)
}


##</code><code>##

sub k{
  my @g;
  for( sort{ $s{$b} <=> $s{$a} } keys %s ){
    last if $s{$_} < 3;
    next unless y/a-z// > 2;
    my @f;
    push @f, (pos($t)-3) while $t =~ /$_/g;
    my $g = c n@f;
    $g > 2 && push @g, $g
  }
  c@g
}


##</code><code>##

sub o{
  my ($g,$w) = @_;
  my $c = 0;
  for( @$g ){
    for( @$_ ){
      /\+/ && $c++;
      /\-/ && $c--
    }
  }
  return [$c,$w]
}


##</code><code>##

sub o{
  my ($g,$w,$c) = @_;
  map{
    map{ /\+/ && $c++; /\-/ && $c--} @$_
  } @$g;
  [$c,$w]
}


##</code><code>##

sub t{
  my ($o,$k) = @_;
  my $c = 0;
  my $r;
  for(split //,$t){
    $r .= $_ unless(($c+($k-$o)) % $k);
    $c++
  }
  $r =~ s/[^a-z]//g;
  return $r
}


##</code><code>##

sub t{
  my ($o) = @_;
  my $c = 0;
  my $r;
  map{ $r .= $_ unless($k-$o+$c) % $k; $c++ } $t=~/./gs;
  $r =~ s/[^a-z]//g;
  $r
}


##</code><code>##

sub v {
  my ($m,$l,$t) = @_;
  my @g = b($l,$t);
  my $s = \@g;
  my $z = 0;
  for( @$m ){
    my $x = 0;
    for( @$_ ){
      if( $$m[$z][$x] eq '#' && $$s[$z][$x] eq '#' ){
        $$s[$z][$x] = '+'
      }
      elsif( $$m[$z][$x] eq '#'&&$$s[$z][$x] ne '#' ){
        $$s[$z][$x] = '-'
      }
      $x++
    }
    $z++
  }
  return $s
}


##</code><code>##

sub v{
  $m = pop;
  my @g = b\%t,$*;
  $s = \@g;
  $z = 0;
  map{ $x=0;
       map{
           $$s[$z][$x] = $$m[$z][$x] eq '#' && $$s[$z][$x] eq '#' ? '+' : '-';
           $x++
          } @$_;
       $z++
     } @$m;
  $s
}


##</code><code>##

$,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse split//=>$*
){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$#C]=$/;($#C
>$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^$$C[$%++]}