Select Code to Download

    my $pat = $line =~ m/^LOC_Os0[1-7]g[0-9]*.[0-9]\s/;

    my ($pat) = $line =~ m/^LOC_Os0[1-7]g[0-9]*.[0-9]\s/;

#!/usr/local/bin/perl
use strict;
...
close (MYFILE);
close (WASTE);
close (FILE);