Overview of program 

$ ./parse.pl '1D Virginia Avenue East, Eden Terrace, Auckland 1021'
$VAR1 = {
      'street_alpha'         => 'D',
      'street_number'        => '1',
      'street_name'          => 'Virginia',
      'street_type'          => 'Avenue',
      'street_dir'           => 'East',
      'suburb_name'          => 'Eden Terrace',
      'town_city_mailtown'   => 'Auckland',
      'postcode'             => '1021'
};