Program : I

#!/usr/bin/perl

use strict;

my $a = "[abc][hij]";
my $b = " aj";
if ($b =~ /$a/)
{
   print "yes";
}
else
{
   print "no";
}
________________________________________

Program : II

my $a = "[abc][hij]";
my $b = " aj";
if ($a =~ /$b/)
{
  print "yes";
}
else
{
  print "no";
}