use strict;
my $zero_to_255 = join "|", 0..255;
$zero_to_255 = qr(^(?:$zero_to_255)$);
print $zero_to_255,"\n";
for (-2,-1, 0..259) {
  print "$_\n" 
    unless /$zero_to_255/;
};