use strict;
use warnings;

while (<DATA>){
print "Perl string - ", my $perl_string = $_ =~ s/!//rg if $_ !~ /<.*?>/g;
print "HTML string - ", my $html_string = $_ =~ s/!//rg if $_ =~ /<.*?>/g;
}

__DATA__
123!!!!!!
<p>123!!!!!</p>