$ perl -e 'my $x = "newfile"; my $y = "\r.mp3"; print "$x$y\n"'
.mp3ile