Select Code to Download

index($buf, "/DATA_String/") > 0

index($buf, "/DATA_String/") > -1

$ perl -E '
    my @strings = qw{
...
        say "-" x 40;
    }
'

----------------------------------------
$string[no_data_string]
...
$pos[-1]
index() TRUE
----------------------------------------

...
use strict;
...
my ($sock, $new_sock, $buf );
$sock = IO::Socket::INET::->new(...);
...