use strict;
use Expect;

print "What is your name: ";
chomp (my $name = <STDIN>);
if ($name =~ /primelord/i) {
       print "Hello PrimeLord!\n";
} else {
       print "Hello $name! I don't know you!\n";
}