Select Code to Download

($a,$b)=split(/\s/,$test1,2);
print "b=$b\n";

use strict;

...
close I;

print "found: <<$found>>\n";