#!perl -p
s#\w#$'.$_~~//;$&#eg