#!/usr/bin/perl
use strict;
use warnings;

my $string1 = 'three';
my $string2 = 'five';

if ($string1 eq $string2) {
    print "Equal\n";
} else {
    print "Not equal\n";
}