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