みなさんありがとうございます

map { s/^\Q$erasedat\E\n$//; } @datalist;

で希望通りに処理されるのを確認できました。

mapとかgrepというのを使いこなせば、いま自分の書いてる現行のスクリプトで
改善できるところがすごく多そうなので、ちょっと勉強してみます。。

ほんとに助かりました。親切にありがとうございました