Select Code to Download

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