rename files in a directory

[mythili123]

The script will rename
all files in the current directory whose names contain the first argument
by replacing that part of the filename with the second argument.

so far i could just get the file names that matches $ARGV[0].I need help on how to rename the files .For ex if argumnets are a bbb
if a file name is rename.txt
then O/P must be renbbbme.txt.

#!/usr/bin/perl
use strict;
 
use File::Find;
die"Usage:$0 filename newname\n" if @ARGV!=2;
my ($filename, $newname) = @ARGV;
 
opendir(D,".") or die "Cannot open .: $!";
 
my @allfiles = ();
foreach my $file (readdir D) {
    next if -d "$file";
    next if $file !~ m/[\Q$ARGV[0]\E]/;
    push @allfiles, $file;
}
print "@allfiles\n";
 

Thanks
Mythili

[KevinADC]

Is this school work?

[mythili123]

yes.I am trying my best.Any clue on how to proceed will really help me.
mythili

[KevinADC]

look into the rename() function.

[miller]

perldoc rename

- Miller

[mythili123]

thank u. .