chomp($a=<>); $len = length $a; $pattern='\w' x $len; $a = "$a" x ($len + 1); $a =~ s/($pattern)\w/$1\n/g; print $a;