#!/usr/bin/perl

use strict;
use warnings;

my $palindrome = 'lagerregal';
my $check = reverse $palindrome;

print "yes\n" if $check eq $palindrome;