perl -Mre=debug -we'qr/[\s*\W*]/'