my $pat = qr/0|[1-9][0-9]?/;