$query =~ s{ (?## "12345 " -> "N " "12345. " -> "N. "