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