use strict;
use warnings;

my @nums;
for(my $i = -100; $i < 400; $i++)
{
	push @nums, $i;
}

foreach my $n (@nums)
{
	if($n =~ /^[012]?(((?<=2)[0-5])|(?<!2)[0-9])?(((?<=25)[0-5])|(?<!25)[0-9])$/)
	{
		print $n, ": pass\n";
	}
	else
	{
		print $n, ": fail\n";
	}
}