Select Code to Download

#! perl
use strict;
...
First Name: Dobbin Last Name: David L. E-mail: david@adamsonanddobbin.
+com Address: PO Box 1326407 Pido Road City: Peterborough State: ON ZI
+P Code: K9J 7H5",,,,,,Home,743 7790,Other,742 4524,Work,745 5751,,,,,
+,,,,,,Adamson And Dobbin Ltd. Mechanical Contractors,,General Manager
+,,,,,,,,,,,
,,,,,,,,,,,,,,,,,,,,,,,,,"First Name: Chapleau Last Name: Kathy, Ken A
+ddress: 666 FrankFirst Name: Chapleau Last Name: Kathy, Ken City: 666
+ Frank
",,,,,,Home,876-9863,,,,,,,,,,,,,,,Admiralty Hall,,Accountant,,,,,,,,,
+,,

12:36 >perl 985_SoPW.pl

...
MATCHED!: ' Chapleau '

12:36 >

if ($notesField =~ /First Name:(.*?)(?=Last)/)
{
    print "MATCHED!: '$1'\n";
}

while ($notesField =~ /First Name:(.*?)(?=Last)/g)