use warnings;
use strict;
use File::Slurp;
local $/ = undef;

for ($i=1; $i < 119000; $i++)
{&s1;}

sub s1 {
open (fl, "+<", "C\:\\convs\\conv$i\.txt");
binmode fl;
$string = <fl>;
$string =~s/^.*Mina olen.{1561}//s;
close(fl);
}