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

##</code><code>##

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