using Regexp::Assemble and without explicit loops:

use Modern::Perl;
use Regexp::Assemble;

my $line  = 'Lorem ipsum dolor sit amet, consectetur adipisicing elit.
+';
my @array = ( 'ipsum', 'sit amet', 'elit' );
my $ra    = Regexp::Assemble->new;
$ra->add(@array)->anchor_word(1)->re;

say $ra->as_string; # just for educational purposes
$line =~ s/$ra//g;
say join "\n", split /\W+/, $line;
[download]