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

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

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