$ perl -le 'print @ARGV' foo1 foo2 foo3
foo1foo2foo3

$ perl -le 'print "@ARGV"' foo1 foo2 foo3
foo1 foo2 foo3

$ perl -le 'local $" = "~"; print @ARGV' foo1 foo2 foo3
foo1foo2foo3

$ perl -le 'local $" = "~"; print "@ARGV"' foo1 foo2 foo3
foo1~foo2~foo3