#!/usr/bin/perl
#File: pali.pl
#Author: Jessen Bredeson

use strict;
use warnings;

my $seq = shift;

if (! defined($seq)) {
    print "Please provide a sequence.\n";
} else {
    $seq =~ s/\s+//g;

    my $rev = reverse($seq);
    if (lc($rev) eq lc($seq)) {
	print "yes!\n";

    } else {
	print "no!\n";
    }
}