#!/usr/bin/perl

print "kerro haun kohde tiedosto.\n";
chomp ($mista=<STDIN>);

print "mita tahdot loytaa?\n";
chomp ($mita=<STDIN>);

print $mita;

$tiedo = $mista;
open (OVI, "<$tiedo");
while (<OVI>){
	if ($tiedo =~ /$mita/) {
  	     $asiaa = $tiedo;

  	     $tied = "loyto.txt";
   	    open (KAHVA, ">>$tied");
		while (<KAHVA>){
  	             print KAHVA $asiaa;
		}

	}
}