my $str1 = "perl123";
my $str2 = "aaaa123";

if ($str1 == $str2) {
    print "Strings are equal\n";
}