#!/usr/bin/perl
print "What is your name?";
$name = <STDIN>;
chop($name);
if ($name =~ /RANDAL/i) {
        print "HELLO, RANDAL! HOW GOOD OF YOU TO BE HERE\n";
} else {
        print "Hello, $name!\n";
}

##</code><code>##

!/usr/bin/perl
print "What is your name? ";
$name = <STDIN>;
CHOP($NAME);
IF ($NAME EQ "RANDAL") {
     PRINT "HELLO, RANDAL! HOW GOOD OF YOU TO BE HERE!\n";
} ELSE {
   PRINT "HELLO, $NAME!\N"; #ORDINARY GREETING
}