Select Code to Download

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

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

/.*$/

/[^\n]+/