my $line = '1|firstname|last, name"|address1|city|state|zip'; my $line = '1|firstname|last, name|address1|city|"state,"|zip'; my $line = '1|firstname|last, name|,",address1|city|state|zip'; my $line = '1|firstname|,"|last, name|address1|city|state|zip'; my $line = "1|firstname|last, name|,\n"address1"|city|state|zip";