Select Code to Download

#!$HOME/localperl/bin/perl

use strict;
...
print "After while \@local: @local\n";
close $fh;

12.2(17d)SXB11
5.10 Generic_118855-15
XYZ 7.1

Before while @local:
Before chomp $line: 12.2(17d)SXB11

...
After while @local: 12.2(17d)SXB11
 5.10 Generic_118855-15
 XYZ 7.1

Before while @local:
Before chomp $line: 12.2(17d)SXB11

...
After chomp $line: XYZ 7.1
 XYZ 7.1neric_118855-15(17d)SXB11
 XYZ 7.1neric_118855-152(17d)SXB11