$text =~ s/[\x0D\x0A]+\z//;