Rename bunch of files

my @files = glob '*';

foreach (@files) {
if(/.pl/) {
($new = $_) =~ s/\.pl/\.plx/;
print "old: $_\nnew: $new\n\n";
rename $_ => $new;
}
}