my $ns = substr( $_, 13, 8, 'blah');

##</code><code>##

        print NEW $_;