#!perl -p $a=!s/./$a=$<$a?$a:$&/eg