Select Code to Download

while ($mmap =~ m/^([^\n]*$pat[^\n]\n)/omg)
{
  print $1;
}

while ($mmap =~ m/$pat/omg)
{
...
  my $last  = index($mmap,"\n",$pos)+1;
  print substr($mmap,$first,$last-$first);
}

#!/usr/bin/perl

...
  close(F)
    or die "Couldn't close '$a': $!\n";
}