Select Code to Download

my $test = $b;

...
   $test =~ s/[1-5]//;
   print "It is either 1,2,3,4,5\n" if ! $test and $test ne "0";
}

#!perl/bin/perl

...
      print "It is either 1,2,3,4,5\n" if ! $test and $test ne "0";
   }
}