Торможу наверное...

[watto@drova tmp]# cat tst.pl
#!/usr/bin/perl

$tm=localtime();
$tm=~/(\w+)\s(\w+)\s(\d+)\s(\d+)/;
$wday=$1;
print "$wday\n";
open(P,"</tmp/cal");
while(<P>) {
        (@a)=split;
        if ($a[0]==$wday) {
           print "@a\n";
        }
}
[watto@drova tmp]# cat cal
Mon 1 2 3 4 5 6 7 8
Tue 9 10 11 12 13 14 15 16
Wen 17 18 19 20 21 22 23 24
Thu 25 26 27 28 29 30 31 32
Fri 33 34 35 36 37 38 39 40
Sat 41 42 43 44 45 46 47 48
Sun 49-99
[watto@drova tmp]# ./tst.pl
Fri
Mon 1 2 3 4 5 6 7 8
Tue 9 10 11 12 13 14 15 16
Wen 17 18 19 20 21 22 23 24
Thu 25 26 27 28 29 30 31 32
Fri 33 34 35 36 37 38 39 40
Sat 41 42 43 44 45 46 47 48
Sun 49-99

Хотя следуя моей мысли вывод должен быть
[watto@drova tmp]# ./tst.pl
Fri
Fri 33 34 35 36 37 38 39 40

Где погнулись /dev/hands ?:

• Perl,dl, 13:22 , 11-Июл-03
• Perl,watto, 13:33 , 11-Июл-03

ты неправильно сравниваешь
у тебя строковые переменные:

print "@a\n" if ( $a[0] eq $wday );

Премного благодарен.