if ($s =~ / .* [|] ([^.]+) [.] ([^.]+) [.] (.*) /x) {