#!/usr/bin/perl

while (defined($line = <STDIN>)) 
  { 
    $len = length($line)-1;
    if ($len == $ARGV[0] ) { print $line; }
  }
