sub literalize
{
    ????
}

sub assert($)
{
    my ($condition) = @_;

    my $literal_condition_code = literalize(@_);

    if ($condition)
    {
       print "assertion failed: $literal_condition_code\n";
    }
}

assert(42 == 24);