my $test = $b;

$test =~ s/\s+//g;

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

##</code><code>##

#!perl/bin/perl

use strict;

@_ = (-1000..1000,
      "    \t\t\n 4 \t   ",
      "    \t\t\n 7 \t   ",
      "    \t\t\n 145 \t   ",
      "    \t\t\n 1  234   5 \t   ",
      "    0   ",
      "    0 4  ",
      "   \t\t 0  \n\n 3",
      "  perl   4  \t",
      "   \t4 perl");

for (@_) {
   my $test = $_;
   $test =~ s/\s+//g;
   if ($test != 0) {
      $test =~ s/[1-5]//;
      print "It is either 1,2,3,4,5\n" if ! $test and $test ne "0";
   }
}