my $value = "abc456def";

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

print "$value\n";   # Prints 456