my ( $city, $phone, $street, $zip ) = map scalar <DATA>, 1 .. 4;

##</code><code>##

chomp( my ( $city, $phone, $street, $zip ) = map scalar <DATA>, 1 .. 4 );