#!/usr/bin/perl
#$string = 'Order';
use warnings;
system "clear";
printf "String Cutter v 0.1\n";
print "=-=-=-=-=-=-=-=-=-=\n\n";
printf "Ctrl-C za izhod\n";
printf "File za obrabotka:";
$filen = <STDIN>; chomp $filen;
printf "Kakvo da iztria:";
$string = <STDIN>; chomp $string;
printf "V koi file:";
$file = <STDIN>; chomp $file;
open(FIN,"<$filen");
open(FOUT,">$file");
while (<FIN>) {
print FOUT unless /$string/;
}


