open my $outfile, '>', 'out.txt';
while (<>)
{
  print $outfile $_ if /^(?:A id|M X)/;
}
close $outfile;
##</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);