Tips and Tricks 

• Start the parser anywhere, not just at the top

sub parse_street {
    my $address = shift;
    return $parser->street($address); 
}

• Collect everything left over

remaining:  /.*\Z/