[0] Perl> $t = time(); 
while( $_=localtime( $t ) and m[2008] ) {  
    m[^Mon] and print scalar localtime( $t ); 
    $t+=86400; 
}
Mon Aug 25 18:45:13 2008
Mon Sep  1 18:45:13 2008
Mon Sep  8 18:45:13 2008
Mon Sep 15 18:45:13 2008
Mon Sep 22 18:45:13 2008
Mon Sep 29 18:45:13 2008
Mon Oct  6 18:45:13 2008
Mon Oct 13 18:45:13 2008
Mon Oct 20 18:45:13 2008
Mon Oct 27 17:45:13 2008
Mon Nov  3 17:45:13 2008
Mon Nov 10 17:45:13 2008
Mon Nov 17 17:45:13 2008
Mon Nov 24 17:45:13 2008
Mon Dec  1 17:45:13 2008
Mon Dec  8 17:45:13 2008
Mon Dec 15 17:45:13 2008
Mon Dec 22 17:45:13 2008
Mon Dec 29 17:45:13 2008