#!/usr/bin/perl -l

use autodie;
use strict qw/refs/;
use warnings FATAL => 'all';

print "Enter a word: ";

my $str1 = <STDIN>;
my $str2 = 'Mahesh';

chomp $str1;
print "Match" if $str1 eq $str2;
print "No match" unless $str1 eq $str2;