my $value = $1 if $foo =~ /^\w+(\d+)/;
do_something($value) if defined $value;