echo 'abbc' | perl -pe "s,b,{if (1) {print \"-\"}},ge" # --a11c
echo 'abbc' | perl -pe "s,b,{if (1) {\"-\"}},ge" # a--c