for ($foo) {
    s/^"//;
    s/"$//;
    s/\W+/-/;
}
# or also:
# s/^"//, s/"$//, s/\W+/-/ for $foo;