foreach(@lines) {
    if (s/^\#\<\-\(0N\<\-\(s3T$/*<-(0N<-(s3T/g) {
        push @newlines, $_;
    }
}