my $text = $query->param('text');
    $text =~ s/\\r\\n/<br>/;
    $query->param(
        -name => 'text',
        -value => $text
    );