Select Code to Download

my $regex = '(2[0-4]|1?[0-9])?[0-9]';
while (<>) {
    chomp;
...
        print "$_ did not match\n";
    }
}