Select Code to Download

qx("perl -p -i -e \"s/(\@Filetyp\\s*?:)/\\1$ext/\" /path/test.c")

{ # new scope for local
    local *ARGV; @ARGV = '/path/test.c';
...
        print;
    }
}