Select Code to Download

#! perl -slw
use strict;
...
pp \@accts;

__DATA__

TAGSTART
FIRSTNAME DAVID
...
BILLAMOUNT -1
UNKNOWNTAG SOMEVALUE
TAGEND

C:\test>junk47.pl
[
...
    lastname   => "BLOGGS",
  },
]