Perl
----

    #!perl
    eval('(*16,z<=:3??0<x06161xBBQ$8t'^((
    '0'x27)^((((((('h'x6).'A'.'b'x5).'a'.
    'h'x2).'A'.'h'x5).'A'.'H'x3).'f'x2))))

>! **Output:** Mohammad Anini 3:)