perl -e '@a=("a","b","c\n");chomp @a;$"="-";print "[@a]\n"'