while (my $lines = <$fh>) {...

##</code><code>##

print $arg1, $arg2, ...

##</code><code>##

print($arg1, $arg2, ...)

##</code><code>##

 print substr($lines, $schemePOS, 20), substr($lines, $abiPOS, 3);