#!/usr/bin/perl -w
use strict;

my $string = "foo bar baz bar quux foo gin";
my @list = qw(foo bar);

$string =~ m/\Q$_\E/gc for @list;

my ($rest) = $string =~ m/\G(.*)$/;

print "$rest\n";