#!perl
use strict;
my $PTName = "'isc01cfa,isc02cfa','isc03ifa,isc04ifa'";
$PTName =~ s/','/,/g; # add
$PTName =~ s/,/','/g; 
print $PTName;