print "Name of file containing various random strings?\n";
chomp ($motif=STDIN [omitting <>]);
open (MOTIF, "$motif") || die "$!";

print "String to search with?\n";
chomp ($blocks=STDIN );

while (MOTIF) { @motif = MOTIF};

foreach (@motif) {