#!/usr/bin/perl
open(LOGFILE,"<sc_serv.log");
open(CLOGFL,">sc_serv.cls");
while($line=<LOGFILE>){
   if ($line =~ m/\[yp_tch\] yp\.shoutcast\.com touched\!/){
      print "Skipping: $line"; 
   }
   else{
      print CLOGFL $line;
   }
}
close(CLOGFL);
close(LOGFILE);