Как выполнить многократную подстановку одной и той же переменной с помощью Perl

---

Я хочу сделать две разные подстановки для одной и той же переменной с помощью perl?Как я могу это сделать ?.В приведенном ниже коде я сделал это отдельно .Как я могу сделать его все еще простым с помощью perl?

Что я уже пробовал:

open my $IN, '<', $data_file or die $!;
while (my $line = <$IN>) {
    chomp $line;
    #$line=~ s/COMMENT//g;
    $line=~ s/[\\\_\@\_]//g;
    $line=~s/COMMENT//g;

---