$line =~ s/\w*\s*[:upper:]{2}\s(\d{5}\s*(\d{3][-\s]*\d{3}-\d{4})\s*(.*)$//;
($custCity, $custState, $custZip, $custTel, $custComments) =($1, $2, $3, $4, $5);
$line =~ s/(\d*)\s*(.*)\s*(\d*.*)$/;
($custNum, $custName, $custStreet) = ($1, $2, $3);