C:\>strings.pl myscript.exe
Quantifier in {,} bigger than 32766 before HERE mark in regex m/([\n\t -~]{ << HERE 4,32768})\0/

##</code><code>##

C:\>strings.pl myscript.exe
RES>
.text
`.rdata
@.data
5@e@

C:\>type strings.pl
my( $min, $max ) = ( 4, 32766 );
local( $/ ) = \(32*1024);
my $prev = '';
while( <> ) {
    $prev .= $_;
    while( $prev =~ /([\n\t -~]{$min,$max})\0/g ) {
        print "$1\n";
    }
    $prev =~ s/.*\0//s;
}

##</code><code>##

C:\>strings.pl myscript.exe
!This program cannot be run in DOS mode.
$
RES>
.text
`.rdata
@.data
5@e@

C:\>type strings.pl
my( $min, $max ) = ( 4, 32766 );
local( $/ ) = \(32*1024);
my $prev = '';
while( <> ) {
    $prev .= $_;
    while( $prev =~ /([\t\r\n\040-\176]{$min,$max})\0/g ) {
        print "$1\n";
    }
    $prev =~ s/.*\0//s;
}

C:\>