Shell Programming and Scripting

#!/usr/bin/perl
open(DATA,'mutationsonly.txt');
# or die("Could not open mutationsonly file.");
open(MYOUTPUT, ">newmutations.txt");
# or die ("could not open newmutations file.");
$/="\n\n";
my @records = <DATA>;
foreach my $record (@records)
{
my $line =~m/^\*FIELD\*\sAV$/;
if ($record =~ m/ ($line) /) 
  {
print "$record";
   }
}
 
close(MYOUTPUT);
close(DATA);

 
foreach my $record (@records)
{
if ($record =~ /^\*FIELD\*\sAV$/)
{
print "$record";
}
}

 
perl -lane 'print $_ if ($_=~/\*FIELD \* AV/)' mutationsonly.txt

perl -lane 'print $_ if ($_=~/\*FIELD \* AV/)' mutationsonly.txt >output.txt*