#!/usr/bin/perl

use warnings;

my $n = $ARGV[1]; #czytam ilosc cyfr z 2 parametru linii (1 jest plik)

open(FILE, "<", $ARGV[0]) or die "error";

while (<FILE>)
{
    my $line = $_;
    my @numbers = split(/\s+/, $line); #dziele se kazda linie pliku po dowolnej liczbie spacji regexem
        foreach $number (@numbers) {

        if (length($number) > $n) #tu wiadomo, length zwraca dlugosc stringa czyli ilosc cyfr
        {
            if ($number=~/[6-7]/){ #no i tu tez
                print "$number\n";
            }
        }
    }
}
close FILE;