perl -le '
for $num (qw(-1 0 7 12 88 100 123)) {
   if ($num=~ /^(\d+)(??{$^N >=0 && $^N <= 100 ? "" : "(?!)"})$/) {
       print $1;
   }
}
'