#!/usr/bin/perl


open(IN,$ARGV[0]);

while(<IN>) {

if(length($_) == 26) {
print $_;
}
}