my $html = "<h1>F(oo</h1><p>Bar</p><p>Some more text here</p>";
my @list = ('F(oo','Bar');

# you need to make the elements in @list regex
# friendly by backslashing all the metachars
# comment out this line to see this script choke
# on the ( in F(oo
s/([\$\^\*\(\)\+\{\[\\\|\.\?])/\\$1/g for @list;

# eat up the bits in @list
$html =~ m/$_/gc for @list;

#use \G to match the rest
($rest) = $html =~ m/\G(.*)$/;
print $rest;

##</code><code>##

# s/([\$\^\*\(\)\+\{\[\\\|\.\?])/\\$1/g for @list;
$_ = quotemeta $_ for @list;