#!/usr/bin/perl
use IO::File;
open FILE,"<file.txt" or die "Cannot read the file file.txt !\n";
while ($line = <FILE>) {
    if ($line =~ m/jopa/i) {
	open(OUTFILE, ">>01.jopa-Found.txt");
	print OUTFILE "$line";
    }
    else{
    open(OUTFILE, ">>02.No-jopa-Found.txt");
	print OUTFILE "$line";
   }
}