$ touch "foo&bar"
$ perl -wE'
system("mv", "foo&bar", "/tmp/foo&bar");
'
$ ls /tmp/foo\&bar
/tmp/foo&bar
$ rm /tmp/foo\&bar
touch "foo&bar"
$ perl -wE'
use File::Copy qw/ move /; move("foo&bar", "/tmp/foo&bar")
'
$ ls /tmp/foo\&bar
/tmp/foo&bar
$