#!/usr/bin/perl
$filename = 'new&name.txt';
`mv $filename new&filename_renamed.txt`;

##</code><code>##


sh: name.txt: command not found
sh: filename_renamed.txt: command not found
mv: missing file argument
Try `mv --help' for more information.
[2]   Done(127)               name.txt new