$ perl -wMstrict -MData::Dump -e \
    'dd join "", map { "[$_]" } split /[a-zA-Z]/, q($-.%abc&/)';
"[\$-.%][][][&/]"