while (<DATA>)
{
    chomp;
    
    $parse->Para($_);
}

##</code><code>##

my $text = do { local $/; <DATA> };
$parse->Para($text);

##</code><code>##

/.*$/

##</code><code>##

/[^\n]+/