#calc <expr>
use utf8;
sub calc
{
    my ($msg) = @_;

    if ($msg =~ m#[^ 0-9\.()%+*/_-]#)
    { return "Toegestane tekens: 0 t/m 9, ., (, ), %, +, -, *, _, /."; }
    else
    {
        my $answer = '';
        eval("\$answer = $msg;");
        if ($answer eq '')
        { return "Ongeldige expressie! Zie: help calc"; }
        return $answer;
    }
}

sub calc_help
{
    my $return;

    $return  = "Reken een expressie uit: calc <expressie>\n";
    $return .= "Toegestaken tekens zijn: 0 t/m 9, ., (, ), %, +, -, *, _, /.\n";
    $return .= "Gebruik ** voor machtverheffen, en gebruik haakjes waar nodig.\n";
    $return .= "Bv.: calc 3*5 -> 15.\n";
    $return .= "Bv.: calc (2+1)**3%2 -> 1.\n";
    return $return;
}

1;