echo 'abbc' | perl -Mstrict -wpe 's,b,my $replacement=""; if (1) {$replacement.="<"}; $replacement.=">"; if (0) {$replacement.="y"} $replacement,ge'
a<><>c