so im using:
                        ......
foreach(@lines) {
	$_=~  $_ =~ s/\#<-(0N<-(s3T\/\*<-(0N<-(s3T/g;
   	push(@newlines,$_);
		}
...