$ perl -Mstrict -Mwarnings -E '
    my $line = q{Lorem ipsum dolor sit amet, consectetur adipisicing elit.};
    my @array = (q{ipsum}, q{sit amet}, q{elit});
    my $re = qr{(?:@{[join q{|} => @array]})};
    $line =~ s/$re//g;
    say for split /\W+/ => $line;
'
Lorem
dolor
consectetur
adipisicing