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