#!/usr/bin/perl -l
my $word = shift;
open my $in, '<', shift or die $!;
open my $out, '<', shift or die $!;
while (<$in>)
{
  print $out $_ if $_ eq $word;
}
close $in;
close $out;

##</code><code>##

print map{substr'hark, suPerJacent other l',$_,1}(11,7,6,16,5,1,15,18..23,8..10,24,17,0,12,13,3,14,2,4);