#!/usr/bin/perl -w
use strict;

##</code><code>##

$mydata =~ s/^([\w\s]+)\s([\w]+)\s(0000)/$1,$2,$3/mg;

##</code><code>##

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