my ($digits)= $str =~ m/\d\d(\d\d)/;