Select Code to Download

...
my $fn = 'data.dat';
...
{ local $/; $stuff = <$fh> }
close $fh;
...

...
while( $stuff =~ /^ (\d+): \s+            # the number xx: => $1
...
   print join "\n\n", $locus, $name, $kegg, $func, $proc, $comp;
}
...