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