Select Code to Download

@pieces = split(/ /, $tmp); #Split-up the entire line...
$newjob = $pieces[0]." "."JF".$pieces[1]." ".$pieces[2].
          " ".$pieces[3]."\n";
$temp   = $newjob;

$tmp =~ s/^([^ ]+\s+)/$1JF/;