my $value = qq( HTML Document? Some Text. missing image ); $value =~ s/<(([^ >]|\n|\s\w)*)>/ /gso; print $value;