if($input=~/(\d+)/) { $input = $1; }
else{ $input = undef }