Help for this page
#!perl -la055 $/.=$".$/,$"x=3for 1..pop;print$/
$\=$/; #here something for '-a' ? $/=chr(055); ...