note
gopalr
<code>
$b='This_is_Sample_Text';
if ($b=~/^(.+)_[^_]+$/)
{
print "\n$1"; ## This_is_Sample
}
</code>
<p><code>.</code> = Match any character (except newline)</p>
<p><code>+</code> = Match 1 or more times</p>
<p><code>.+_</code> = Match upto last underscore(<code>_</code>)</p>
<p><code>[^_]+$</code> = Notmatch underscore(<code>_</code>) upto end of the string
</p>
548901
548901