or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = qq{'XXXX-ax1-d.ett.com','AMRS','AMS','','YYY','ZZ',, , ,};
...
"
''XXXX-ax1-d.ett.com','AMRS','AMS','','YYY','ZZ',, , ,'
''XXXX-ax1-d.ett.com','AMRS','AMS','','YYY','ZZ',NULL,NULL,NULL,NULL'