#!/usr/local/bin/perl

while ($line = <STDIN>) {
        @words = split (/\s+/, $line);
        @shortwords = grep (/^.{1,5}$/, @words);
        print ("@shortwords\n");
}
