How do I perform multiple substitution for same variable using Perl

See more:

Perl

I want to do two different substitution for the same variable using perl?How can i perform it ?.In the below code i had done it separately .How can i make it still simple using perl?

What I have tried:

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