$mydata =~ s/(:\d\d)\s0000/$1, 0000/g;