my @data = <DATA>;

foreach my $line (@data) {
    my ($customer, $service, $duration, $date) = split(/,/, $line);
    print "$customer:$service:$duration:$date:\n";
}
__DATA__
Cahoots Sports Bar & Grill,AP,PT00H01M,2003-01-01
Cahoots Sports Bar & Grill,AP,PT00H01M,2003-01-01
Cahoots Sports Bar & Grill,AR,PT00H01M,2003-01-01