use strict;
use warnings;

my $input = <STDIN>;
chomp $input;

my $file = 'wordlist.txt';
open(INFO, $file);
my @lines = <INFO>;
close(INFO);

for my $word (@lines){
    if ($word =~ /^[$input]+$/){
        print "$word\n";
    }
}