$a="watermelon
beachball
shrinebell
";$a=~s/$_// for<>;print$a