C:\test>perl -wle"
    print 'the quick brown fox' for 1..3; 
    print chr( 26 ); 
    print 'secret message'
" > junk.txt

##</code><code>##

C:\test>type junk.txt
the quick brown fox
the quick brown fox
the quick brown fox

##</code><code>##

C:\test>perl -pe1 junk.txt
the quick brown fox
the quick brown fox
the quick brown fox
&#8594;
secret message