print $outputfile "$parsedstring\n" or warn 'couldnot write to file';

##</code><code>##

print $outputfile "$parsedstring\n" or warn "couldnot write to $inpfile: $!";

##</code><code>##

$|=20;
print $|;