use strict;

my $test = sprintf('%s, %s~~~%s', '10,01,03', '888888', 'L00060-03-AM-10-01-00621-03-0007016735') ;
print "$test\n";