echo 'abbc' | perl -pe "s,b,{if (1) {print \"<\"}; print \">\"; if (0) {print \"y\"}},ge" # <><>a00c
echo 'abbc' | perl -pe "s,b,{if (1) {\"<\"}; \">\"; if (0) {\"y\"}},ge" # a00c