#!perl -p s/\W//g;s/\d//g; $_=reverse