my %record = $data =~ /^\|  (\w+)  \| (\d+)/g;