if ((/#bg\s$input/ .. /#be\s$input/) =~ /^\d+(?<!^1)$/)  {
     print $_;
  }