or download this
my $sql = "'XXXX-ax1-d.ett.amrs.bankofamerica.com','UAT','AMRS','AMS',
+'','YYYY','ZZZZ',,,,";
print "$sql\n";
...
print "$sql\n";
$sql =~ s/,,/,NULL,/g; ## I dont know why this is needed twice
print "$sql\n";
or download this
$ ./test.pl
'XXXX-ax1-d.ett.amrs.bankofamerica.com','UAT','AMRS','AMS','','YYYY','
+ZZZZ',,,,
'XXXX-ax1-d.ett.amrs.bankofamerica.com','UAT','AMRS','AMS','','YYYY','
+ZZZZ',NULL,,NULL,
'XXXX-ax1-d.ett.amrs.bankofamerica.com','UAT','AMRS','AMS','','YYYY','
+ZZZZ',NULL,NULL,NULL,