$s =~ s#[\r\n]+\z##g;