#!/usr/bin/env perl

use strict;
use warnings;

while (<DATA>) {
    chomp;

    # A1 => An integer between 1 and 99, without leading zeros.
    #      (Although zero can appear by itself.)
    #
    # A2 => A optional fractional component that may contain no more
    #       than two digits.
    #
    # -OR-
    #
    # B1 => The integer 100.
    #
    # B2 => A optional fractional component following that may
    #       consist of one or two zeros only.
    #

    if (/^(?:(?:[0-9]|[1-9]{1,2})(?:,[0-9]{1,2})?|(?:100)(?:,0{1,2})?)$/) {
    #           ^^^^^^^^A1^^^^^^    ^^^^^A2^^^^      ^B1    ^^^B2^^

        print "* [$_]\n";
    } else {
        print "  [$_]\n";
    }
}

__DATA__
0
01
11
99
100
101
0,0
0,00
01,00
0,000
99,00
99,99
100,0
100,00
100,000
100,01
100,99
101,00