$ perl -E 'my $line ="Lorem ipsum dolor sit amet, consectetur adipisicing elit."; my @array = ("ipsum", "sit amet", "elit"); my $re=join "|",@array;  $r=qr{$re}; say for $line=~/(.*?)$r(.*?)/g'
Lorem 

 dolor 

, consectetur adipisicing