in reply to newbie split question

grep {tr/\"//d, print $_ . ' '}( split /\",\"/, q["Just","Another","Perl","Hacker"] )