Not the greatest code, but this works:

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

 dolor 

, consectetur adipisicing
[download]

Could use some cleanup of the empty returns.
Splitting the returned info into words is left as an exercise.