#!/usr/bin/perl -w

use strict;

my $line = "abc:def,g,h";
print "Original line:$line\n";
my @fields =split(/[:,]/,$line);
print "\nfields:@fields\n";

my $newline = join("_",@fields);
print "\nnewline:$newline\n";