$mydata =~ s/([\w\s]+)\s([\w\d]+)\s(0000.*)/$1,$2,$3/g;
$mydata =~ s/(:\d{2})\s0000/$1,$2/g;