#haags <commando>
use utf8;
sub haags
{
    my ($msg, $dbh, $kanaal, $server) = @_, my $return = '', my $command;
    my $cons = "bcdfghjklmnpqrstvwxz", my $vowel = "aeiouâèùÂÈÙ";
    my $bound = "(?![a-zâèùÂÈÙ])";
    ($command, $msg) = split(/ /, $msg, 2);
    $command = lc $command;

    if ($command ne 'haags' && defined(&{$command}))
    { $msg = &{$command}($msg, $dbh, $kanaal, $server); }
    else
    { return "Geen geldig commando. Zie: help haags"; }

    $msg =~ s/(t)ig\b/$1ag/ig;
    $msg =~ s/(g|ch)[dt]\b/$1/ig;
    $msg =~ s/((?!e)[$vowel])r[dt]\b/$1gt/ig;
    $msg =~ s/([$cons])erb/$1egb/ig;
    $msg =~ s/\ber\b/r/ig;

    $msg =~ s/(aa)r\b/$1h/ig;
    $msg =~ s/(ie)r/$1âh/ig;
    $msg =~ s/(.)er(?=([$cons]|\b))/$1âh/ig;
    $msg =~ s/(o)or(?=([$cons]|\b))/$1âh$2/ig;
    $msg =~ s/(u)ur(?=([$cons]|\b))/$1âh$2/ig;

    $msg =~ s/Ei|IJ/È/g;  $msg =~ s/ei|ij/è/ig;
    $msg =~ s/Au|Ou/Âh/g; $msg =~ s/au|ou/âh/ig;
    $msg =~ s/Ui/Ùi/g;    $msg =~ s/ui/ùi/ig;
    $msg =~ s/Eu/Ui/g;    $msg =~ s/eu/ui/ig;
    $msg =~ s/Ee/Ei/g;    $msg =~ s/ee/ei/ig;
    $msg =~ s/Oo/Au/g;    $msg =~ s/oo/au/ig;

    $msg =~ s/O(?=([$cons][$vowel]|(\s|$)))/Au/g;
    $msg =~ s/o(?=([$cons][$vowel]|(\s|$)))/au/ig;
    $msg =~ s/([$cons$vowel]*[$vowel][$cons]+)en\b/$1e/g;
    $msg =~ s/(\S)lp/$1llep/ig;

    $msg =~ s/\b(He|')t is\b/Tis/g; $msg =~ s/\b(he|')t is\b/tis/ig;
    $msg =~ s/\bHet\b/Ut/g; $msg =~ s/\bhet\b/ut/ig;
    $msg =~ s/\bAan\b/An/g; $msg =~ s/\baan\b/aan/ig;
    $msg =~ s/\bAls\b/As/g; $msg =~ s/\bals\b/as/ig;
    $msg =~ s/\bEin\b/Een/g; $msg =~ s/\bein\b/een/ig;
    $msg =~ s/\bEven\b/Effe/g; $msg =~ s/\beven\b/effe/ig;
    $msg =~ s/\b(n)iet\b/$1ie/ig;
    $msg =~ s/(v)andaag/$1edaag/ig;
    $msg =~ s/Eins/Is/g; $msg =~ s/eins/is/ig;
    $msg =~ s/(n)âhgens/$1erreges/ig;
    $msg =~ s/Âhgens/Erges/g; $msg =~ s/âhgens/erges/ig;
    $msg =~ s/Ègenlèk/Ègelijk/g; $msg =~ s/ègenlèk/ègelijk/ig;
    $msg =~ s/Èndeilèk/Èndelijk/g; $msg =~ s/èndeilèk/èndelijk/ig;
    $msg =~ s/(i)edâhein/$1ederein/ig;

    return $msg;
}

sub haags_help
{
    return "Laat Furbie Haags praten: haags <commando>\nBv.: haags datum";
}

1;