use POSIX qw(strftime); $time= localtime(time-(24*60*60)); $yesterday = strftime( '%d/%m/%y', $time); #### `grep "$yesterday" logfile.log | wc -l` #### open(LOGFILE,"<", "access.log")or die"Could not open log file."; my @logfile = my $hits = grep /$yesterday/, @logfile;