#!/usr/bin/perl

use strict;
use warnings;

my $filename = q{$vaa it's not.txt};
$file =~ s/\$/\\\$/;

my $exec = `touch "$filename"`;