while(<>)
{
   if(/\[(\d+)\/(\w+)\/(\d+):(.*)\]/){
      $filename = "weblog"."-".$3."-".$2;
      if(-w $filename){
         open(LOGFILE,">>$filename") || die "Sorry, could not append $filename: $!";
         select(LOGFILE);
         print $_;
      }
      else{
         open(LOGFILE,">$filename") || die "Sorry, could not create $filename: $!";
         select(LOGFILE);
         print $_;
      }
   }
}