{
  local $" = "', '";
  print "'@j'\n";
}
[download]

perlvar is your friend :)

Update: Well, OK. Maybe not more concise then. But, maybe easier to follow?

I think we need a shorter alias for local.

"The first rule of Perl club is you don't talk about Perl club."

lemur:~ 404> wc
print"'",join("', '",@j),"'\n";
      1       2      32
lemur:~ 405> wc
{local$"="', '";print"'@j'\n";}
      1       2      32
[download]