$str =~ m|.*|s;