Select Code to Download

#!/usr/bin/perl
...

print "\$S=$S ==> ". modif($S) . "\n";

@Arr = (1 ,   2, 3,4);
print "Array = ". modif(join(',',@Arr)) . "\n";