my $x = '5.1';
my $y = '5.1.1';

if($x =~ /5.1/)
  { 
    print "X equals 5.1 \n";
  }
if($y =~ /5.1.1/)
  {
    print "Y equals 5.1.1 \n";
  }