my %data = map { /(.+)\s+\|\s+(.+)/; $1 => $2 } read_file $test2;