$line =~ s[v?(a?(c?(a?(t?(i?(o?(n?(\.?(m?(­s?g))))))))))][];