im having trouble with this... i can do it in awk but perl is giving me trouble.
i want to test for the previous 3 days, today, and the coming three days.
heres the code:

#!/usr/bin/perl
chomp($info=`date +%b%d`);
$info =~ tr/[A-Z]/[a-z]/;
if ($info =~ m/^([a-z]*)([0-9])$/) {
$info = "$1.0.$2";
} #above date is stored in "list" as mmmdd, "jun04" etc.
#followed by other info divided by spaces.

open(FILE, "list");
close(@file=<FILE>);

$count = 0;
while ($file[$count] ne "") {
if ($file[$count] =~ $info) {
print $file[$count];
}
$count++;
}


finished. any ideas on how to test for the week span, instead of just today? thanks in advance if you can help.