#!/usr/bin/perl

use strict;
use warnings;

open my $F, '<', '05.txt';
my $text = join '', <$F>;

$text =~ s/\n{2}/\$\$\$/g;

$text =~ s/\n/ /g;
$text =~ s/:[^\.]+\./\,/g;
$text =~ s/\d+//g;
$text =~ s/[\,\;]/\|/g;
$text =~ s/\s(v|n|adj|pron|num|adv|prep|conj)\.\s/\|/g;
$text =~ s/\|\s+/\|/g;
$text =~ s/\$\$\$/\n/g;
$text =~ s/\s*\|\s*$//g;
print $text, "\n";

$text =~ s/\s(v|n|adj|pron|num|adv|prep|conj)\.\s/\|/g;