echo 'abbc' | perl -pe "s,b,{print \"-\"},ge" # --a11c