if ( $oldValue =~ m|(\d+)| ) {
   $newValue = $1;
}

##</code><code>##

$newValue=(split("_",$oldValue,2))[1]