[John Robinson]

Perl code looks more like:

sub get_reply {
    my $reply = {};

    $reply->{text} = $Focus::r->cgi->param('reply');
    if ($reply->{text} =~ m#<\w+(?:.|\n)*>#i) {  # MAGIC
        $reply->{text} = html_filter($reply->{text});
    }
    else {
        $reply->{text} = html_format($reply->{text});
    }

    my $l = new Focus::UserLookup;

    $l->lookup($Focus::r->cgi->param('name'));

    $reply->{rcpt_string} = $l->lookup_string;
    $reply->{rcpt_list}   = $l->lookup_list;

    if ($reply->{text} !~ /\S/) {
        push @{$reply->{errors}}, "Enter a reply.";
    }

    push @{$reply->{errors}}, map { $_->{text} } $l->errors if $l->errors;

    $reply;
}

Scared ya, didn't I?

[Ernest_at_the_Beach]

Yes, you done good there.

Doesn't look like COBOL or FORTRAN!

[altair]

Scared ya, didn't I?

No. You write clean looking code.