Below is the Perl equivalent of "rm currentlog_*.log" or "del currentlog_*.log" on the command prompt:

unlink glob "currentlog_*.log";
[download]

i tried with unlink glob. but it deleted my currentlog file also :( ..... i dont want to delete it .eventhough i gave currentlog*.log, it deleted currentlog.log too. Please help me out

currentlog.log fits the pattern currentlog*.log. The "_" makes the difference. If you need something more general than "currentlog_*.log" try this:

my @logs = glob "currentlog*.log";
for (@logs) {
    next if $_ eq "currentlog.log";
    unlink $_;
}
[download]

I hope you have copies of your logfiles before do any testing...

G'day keralaqueen234,

Welcome to the monastery.

You showed a set of requirements in your initial post (files: currentlog.log, currentlog_2010.log and currentlog_2011.log). You didn't follow the advice given by hdb (using currentlog*.log instead of currentlog_*.log) and seemed surprised it didn't work. Further on, you changed your requirements showing a completely different set of filenames to match: "i have files with names currentlog.log,currentlog123.log,currentlog233.log,detail.txt,see.txt" [sic].

Any changes you make to requirements in your original posting (OP) should be clearly shown by adding an Update section to your OP. You should fix up your OP now.

This appears to be fast becoming an Off Topic thread with the problem being your lack of knowledge of your operating system rather than anything to do with Perl.

Assuming nothing else has changed between reading this thread and posting this response, it would appear that the pattern you want is: currentlog?*.log

$ ls -1
currentlog.log
currentlog123.log
currentlog233.log
currentlog_2010.log
currentlog_2011.log
detail.txt
see.txt

$ ls -1 currentlog?*.log
currentlog123.log
currentlog233.log
currentlog_2010.log
currentlog_2011.log

$ perl -E 'say for glob "currentlog?*.log"'
currentlog123.log
currentlog233.log
currentlog_2010.log
currentlog_2011.log
[download]

Something like this using File::Find, which IMHO is an overkill for what you need,
since you are just going through one directory, you could consider using opendir, if you want.

use warnings;
use strict;
use File::Find qw(find);

die "No directory is specified" unless defined $ARGV[0];

my $dir = $ARGV[0];

find( \&unwanted, $dir );

sub unwanted {
    if (/^\.{1,}/) { return }
    else {
        print "Do you want to delete ", $_, $/;
        chomp( my $ans = <STDIN> );
        unlink $_ if $ans =~ /\by\b/;
    }
}
[download]

This is a way, but not the only way, (and perhaps not the best way)

Alternatively:

If you are in a Linux OS consider to use find2perl to search for old files, maybe copy the newest to a different place, and delete files if its filename match AND its timestamp is older than X days or months. See mtime, atime, etc.

or

manage your log files with a specific module. Look here.