Select Code to Download

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

my $ext = 'c';
qx(perl -p -i -e 's/\\Q@Filetyp\\E\\s*?:\\K/$ext/' /path/test.c)