Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
my @matches = $str =~ /^\s*(\w+),\s*(\w+ \w+)(.+?\s*LLP)$/m;

print ">$_<\n" for @matches;
  2. or download this
    >Melville<
>New York<
>                            /s/KPMG LLP<