my ($digits) = $var =~ /([0-9]+)/;