Line: $VAR1 = "STOCK NO\375--------................... D53006\t\r";
Regex: /(.*?)[.-]*\t(.*)/
"STOCK NO\375--------................... D3006" => "\r",
(if i store key instead of undef)