use strict;
my $ou;
open(JE, "+<c:\\tuls\\tuls.txt");
while(<JE>)
{
	$_=~s/findtext/changetext/g;
	$ou.=$_;
}
seek(JE, 0, 0);
print JE $ou;
close JE