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

##</code><code>##

elsif (/bb\s$input/) {
	 print $_;
	 last;
	 }

##</code><code>##

   else
	   {
	   print "nope".$_;
	   last;
	   }