Select Code to Download

#!/usr/bin/env perl

...

    print Dumper(\@lines);
}

$ ./pm_11113472_pdf_parse.pl 746810
$VAR1 = [
...
            '01/22/2020',
            '(301) 987-5586'
          ],

$ ./pm_11113472_pdf_parse.pl 746810
$VAR1 = [
...
            '(219) 595-6542'
          ]
        ];

$ ./pm_11113472_pdf_parse.pl 746819
$VAR1 = [
...
            '(800) 448-1991'
          ]
        ];