#!/usr/bin/perl -w
use strict;
use warnings;

my ($a, $b, $result);
print "Enter a item that is 7 characters\n";
chomp ($a = <>);
chomp ($b = <>);
if ($a eq $b && $b eq $a)
{
    print "THIS IS A PALINDROME!!! \n";
}
else
{
    print "THIS IS NOT A PALINDROME \n";
}