Help for this page

Select Code to Download

Select or download this

$str = '703555121245874|45874 Smith St|Your Town|New Hampshire';
%data_hash = map { split m{\|}, $_, 2 } $str;

Select or download this

my %data_hash =
   map { split m{\|}, $_, 2 }
   map {chomp; $_}
   <$fileHandle>;