or download this
my $quotedfullelementpath = '"' . $folderfullpath . '/' . $element . '
+"';
my $quotedfullelementpath = q{"} . $folderfullpath . q{/} . $element .
+ q{"};
...
my $quotedfullelementpath
= $DQUOTE . $folderfullpath . $SLASH . $element . $DQUOTE;
my $quotedfullelementpath = qq{"$folderfullpath/$element "};