use strict; use warnings; my $x = ""; print "'$x'\n"; $x =~ s|]*>||sg; print "'$x'\n"; ----- '' ' 5) { exit; };' />'