$check =~ s/[\r\n]+\z//gs;