sub x{ eval"\$_[0]=~tr/$_[1]//cd";$_[0]eq$_[1]; }