"Jane""Doe" "123 W Beverly Ave" "Talahasee""Maine" "222-22-2222"
"EOS"
####
#!/usr/bin/perl
use strict;
my $i;
my $data;
open(DATA," basicdez.dat") || die "Cannot open datfile: $!\n";
while(){
chomp;
unless ($_=~ /"EOS"/){
$data .= "$_";
} elsif ($i ne 1) {
$data .="\n";
}
if ($_=~ /"EOS"/){
$i=1;
}
}
close(DATA);
my @data=split(/\n/, $data);
for(@data){
my($first_name,$last_name,$address,$city,$state,$phone)=split;
print "$first_name,$last_name\n";
print "$address\n";
print "$city, $state\n";
print "$phone \n";
}
exit;
##
##
Jane, Doe
123 W Beverly Ave
Talahasee,Maine
222-22-2222
##
##
"Jane""Doe","123
W
Beverly, Ave"
"Talahasee""Maine"