$ echo abcd | perl -nle 'print "=$1=" while /(^|\w?)/g;'
==
=a=
=b=
=c=
=d=
==


##</code><code>##

$ echo abcd | perl -nle 'print "=$1=" while /(\w??)/g;'
==
=a=
==
=b=
==
=c=
==
=d=
==


##</code><code>##

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