#!/usr/bin/perl
use LWP::Simple; 
use HTTP::Request::Common;
use Data::Dumper;


print "\n";


my %address =(
    
    'Address' => "",
    'City'    =>"",
    'State'   =>"",
    'Zip'     => "",
    '9-Digit Zip' => "",
       
);


my $filename = ('addresses.txt');

my $txtContent = "";
open(IN, '<', $filename);
while(my $line = <IN>){
    $txtContent    .= $line;
}
close(IN);


my @address = split(/\r{2,2}/, $txtContent);

foreach my $val(@address){
   print "$val\n";
   print "EXIT line\n"
}