use strict;
use warnings;

my $input = <STDIN>;
my @inputarray = split('',$input);

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

my $tacobell;
foreach $tacobell (@lines) {
	if ($tacobell =~ /$inputarray[0]$inputarray[1]$inputarray[2]$inputarray[3]$inputarray[4]$inputarray[5]/) {
		print $tacobell;
	}
	
}

exit();