#!/usr/bin/perl -w

use strict
use Acme::Geordie

while (<>) {
     /$EXPRESSION{"Dinnae dunsch uz, wa Geordies!"}/
     and print q{"Don\'t crash into us. We are Geordies and will hurt you.\n"};
     /$EXPRESSION{"Ye oop?"}/
     and print q{"Are you up?\n"};
     /$EXPRESSION{"Why aye man!"}/
     and print q{"Of course.\n"};
}