$text =~ s/_(.*?)$/$1/;