print join(':', (foo, bar, baz));
# foo:bar:baz

# This is perl, v5.8.8 built for i686-linux