my ($digits) = $var =~ /(\d+)/;