while (<>) {
    chomp;
    print "$_: ";        
    if (my ($number) = /^\$?(\d[,\d]*)/) {
        $number =~ s/,//g;
        print $number < 1000    ? 'too small' :
              $number > 100_000 ? 'too big'   :
                                  'just right';
    }
    else {print 'not a number'}
    print "!\n";
}