#!/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 ($_ =~ /$mita/) {
  	    
		$tied = "loyto.txt";
		open (KAHVA, ">>$tied");
		print KAHVA $_;

	}
}
close OVI;