Select Code to Download

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

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