while (<DATA>) {
   my ($hours, $minutes, $seconds) = /(\d\d):(\d\d):(\d\d)/
      or next;

   print "$hours,$minutes,$seconds\n"
}