Help for this page
s/#(?=<-\(0N<-\(s3T)/*/g foreach ( @lines );
@newlines = map { s/#(?=<-\(0N<-\(s3T)/*/gr } @lines;