4 lines
129 B
Perl
4 lines
129 B
Perl
use strict;
|
|
|
|
my $test = sprintf('%s, %s~~~%s', '10,01,03', '888888', 'L00060-03-AM-10-01-00621-03-0007016735') ;
|
|
print "$test\n"; |