Select Code to Download

$string =~ s/^\s+//;
$string =~ s/\s+$//;

@fi = split(/\s+/, $nextline);

while(@fi[0] eq'')
{
...

     my @fi = split.....
}