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