perl -e"map {print;select undef,undef,undef,0.25} (qq(\a\a), qq(\a), qq(\a\a))"