$var =~ s{ \r \n ? \z }{}xms;