Select Code to Download

#!/usr/bin/perl

...

Output :-
:_a_b_c:

print ":" , join("_",@arr[1..$#arr]) , ":\n";