my $with = 2;
my $with spaces in them = 4;
print "$with spaces in them\n";