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