s/#(?=<-\(0N<-\(s3T)/*/g foreach ( @lines );

##</code><code>##

@newlines = map { s/#(?=<-\(0N<-\(s3T)/*/gr } @lines;