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

##</code><code>##

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