Help for this page

Select Code to Download


  1. or download this
    This line Transcribed, For David Jones #
This line Arranged, For Mike Johnson (great)
Terrible weather today
  2. or download this
    #!/bin/perl
my $file='regex.txt';
...
while ($work =~ /(Transcribed|Arranged),\s+For\s+([\w\s]+)/g) {
  print "Match: $1 Person: $2\n";
}
  3. or download this
    Match: Transcribed Person: David Jones
Match: Arranged Person: Mike Johnson