#!/usr/bin/perl

#undef $/;
#$/='';
use utf8;

while(<>){
next if /[áãðéèêëíìîïñóòôõùýþ]{2}/;
next unless /\w/;
print;
}