in reply to Favourite One-liners?

There's this, which is useful in breaking up a certain type of fixed-length-record file (record size: 13612) into a file with line feeds at appropriate places:

perl -ple 'BEGIN {$/=\13612;}' >

We can't just use the unix "pr" utility because that tends to break on upper-128 characters.

-- @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/; map{y/X_/\n /;print}map{pop@$_}@/for@/