for my $line (`head -30 $fullfile`)

##</code><code>##

for my $line (split qr/\'\n'/, get($fullfile))