Regular Expression Perl

#!/usr/local/bin/perl 
opendir(CURRDIR, ".") || 
die("Can't open current directory"); 
@filelist = grep (!/^\./, grep(-r, readdir(CURRDIR))); 
closedir(CURRDIR); 
foreach $file (@filelist) { 
    open (CURRFILE, $file) || die ("Can't open input file $file"); 
    while ($line = ) { 
        if ($line =~ /$ARGV[0]/) { 
            print ("$file:$line"); 
        } 
    } 
    close (CURRFILE); 
}