#!/usr/bin/perl

use strict;
use warnings;

my %keywords = ("w00t" => "Lol",
                4542 => "Testing",
                "Crazy" => "Did you mean crazy?",
                "quit" => last);

while(1)
{
    print "Lolprompt# ";
    my $reply = <>;
    chomp $reply;

    print $keywords{$reply};
}