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