$value =~ s/\D//g;
$value =~ $1 
if( $value =~ /(\d+)/ ){
  $value =~ $1 
} else {
  undef $value;
}