#!perl -w open(FIN,"../in.txt") or die $!; open(FOUT,"> ../out.txt") or die $!; $i=0; while(<FIN>){ if($_=~/^.?.*:(.*)$/){ #continue; } else{ print (FOUT $_); $i++; } } close(FIN); close(FOUT); printf ("‚лЈа㦥*® §*ЇЁбҐ© - %s \n\n", $i);
if($_=~/^.?.*:(.*)$/)