my @fields = qw(Foo Bar foo@bar.com);
my $line = join ";", @fields;
print "$line\n";     # Foo;Bar;foo@bar.com

---

Would you like to get
updated when I publish
the next article?

Follow me: