#!c:\perl\bin $string1="B"; $string2="E"; if($string1 eq $string2) { print "Those two names are the same! \n"; }else{ print "Those two strings are not the same! \n"; }