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