sub seq{!grep$_[0]!~/\Q$_/g,pop=~/./gs}