perl -pe 's/\W|_//g;'