$ echo 'abbc' | perl -wpe 's,b,{if (1) {"<"}; ">"; if (0) {"y"}},ge'
Useless use of a constant ("<") in void context at -e line 1.
Useless use of a constant (">") in void context at -e line 1.
a00c