{
    local @ARGV = ('filename');
    local $^I = '.backup';
    local $_;
    while (<>) {
        s/y/yah/g;
        print;
    }
}