http://www.perlmonks.org?node_id=124756


in reply to 'print' puzzle

Try either of these: 
print +(preprocess::scanfile ($ARGV[0]));

print (preprocess::scanfile($ARGV[0]));

[download]
(Sometimes whitespace does matter! :)

In Section Seekers of Perl Wisdom