This line Transcribed, For David Jones #
This line Arranged, For Mike Johnson (great)
Terrible weather today

##</code><code>##

#!/bin/perl
my $file='regex.txt';
my $work = do {
   local $/;
   open my $fh, "<", $file
    or die "could not open $file: $!";
   <$fh>;
};
while ($work =~ /(Transcribed|Arranged),\s+For\s+([\w\s]+)/g) {
  print "Match: $1 Person: $2\n";
}

##</code><code>##

Match: Transcribed Person: David Jones
Match: Arranged Person: Mike Johnson