#!/usr/bin/perl -w

use strict;
use warnings;

open(MYFILE, "fil") || die "$!";
my@fil=<MYFILE>;
close(MYFILE);
chomp(@fil);

my@outcome=grep(/[bBcCdDfFgGhHjJkKlLmMnNpPqQrRsStTvVwWxXzZ]{4,}/, @fil);

print @outcome, "\n";