$line =~ s/.../.../gmsx;