$_ = $value;
 $value = m/(\d+)/;

##</code><code>##

 $value =~ /(\d+)/;