my $today = (qw)[(localtime)[6]]; while () { if (m/^$today:/io) { ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl