% perl -e 'print while (<>);' yourfilenamehere

##</code><code>##

% perl -e 'print while (<*.pl>);'