Parse log : affucher uniquement les bonnes lignes

Bonjour tout le monde !!

je suis en train de faire un petit script d'analyse du fichier log "mail.info"

Voici une première ébauche du script (ce n'est pas définitif, surtout si vous trouvez des choses a redire, je suis preneur ^^)

#!/usr/bin/perl

use strict;
use warnings;
use POSIX qw(strftime);

my $mailog = "mail.info";


open(MAIL,"<$mailog") or die("err open $mailog");
while (my $lines = <MAIL>) {
 ########## DATE%d ##########
 my $date = strftime "%d", localtime;
 #my $date = 10;
 if($date =~ /0./) {
         my @date1 = split(/0/, $date);
         print $date1[1];
 }else {
         print "$date\n";
 }
 ############################

 ########## USER ##########
 my @userSplit = split(/</, $lines);
 #print "$userSplit[1]\n";
 
 my @user = split(/@/, $userSplit[1]);
 print "$user[0]\n";
 ##########################

 ########## TIME ##########
 #my @timeSplit = split(/ /,$lines);
 #print $timeSplit[4]; 
 my @timeSplit = split(/ /, $lines);
 my @time = split(/:/, $timeSplit[3]);
 my $realTime = "$time[0]:$time[1]";
 print "$realTime\n"; 

 ##########################
}
close(MAIL);

Donc voila, dans ce bout de code je récupère en premier lieu la date ensuite le user et pour finir l'heure du log.

Ma demande porte sur l'utilisation de la date ainsi que de l'heure, j'aimerais pouvoir afficher uniquement les lignes contenant la date et l'heure du jour pour ne pas avoir a parser les lignes qui date d'il y a trois semaines(ce qui en plus serait néfaste pour la suite du programme) mais je ne vois pas comment faire.

j'ai testé des trucs du genre

if(/$date/) {}

mais le retour c'est ca

:q!
Use of uninitialized value $_ in print at...

J'ai lu quelque part que ca signifiait que la variable était vide... hum c'est la première à être rempli.... ^^

Merci d'avance ( :





:(){ :|:& };: