#ali <commando>
use utf8;
sub ali
{
    my ($msg, $dbh, $kanaal, $server) = @_, my $return = '', my ($command);
    ($command, $msg) = split(/ /, $msg, 2);
    $command = lc $command;

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

    $msg =~ s/\b(een|'n|de)\b\s*//ig;
    $msg =~ s/\b(d)eze\b/$1it/gi;
    $msg =~ s/\bIk\b/Ikke/g; $msg =~ s/\bik\b/ikke/g;
    $msg =~ s/\bhet\b/de/g; $msg =~ s/\bHet\b/De/g;

    $msg =~ s/(s)([^aeiou]|$)/$1j$2/ig;
    $msg =~ s/(z)/$1j/ig;
    $msg =~ s/([^eu]|^)(i)(?!([je]|kke))/$1$2e$3/ig;
    $msg =~ s/[eu]i/ai/g; $msg =~ s/[EU]i/Ai/ig;
    $msg =~ s/uu|eu|u/oe/g; $msg =~ s/Uu|Eu|U/Oe/ig;
    $msg =~ s/(aa)([^aeiou])/$1h$2/g;
    $msg =~ s/(oo)([^aeiou])/$1h$2/g;

    return $msg;
}

sub ali_help
{
    return "Laat Furbie Turks/Marokkaans-Nederlands praten: ali <commando>\nBv.: ali datum";
}

1;