Select Code to Download

  $/ = '>';
  # throw away first (junk) record
...
    $record =~ s{ \n }{}xmsg;
    process($record);
    }

  while (defined(my $record = <$fh>) or ($! and die "reading: $!")) {
    chomp $record;  # remove $/ string
    $record =~ s{ \n }{}xmsg;
    process($record);
    }