{
    local $^I = ''; #no backup of original!
    local @ARGV = qw(c:\\tuls\\tuls.txt);
    
    while ( <ARGV> ) {
        s/find/replace/g;
        print;
    }
}