Select Code to Download

johngg@shiraz:~ > perl -Mstrict -Mwarnings -E '
my $find = q{thispart};
...
ksguhdipghisosipghthispartudirlhgdr
thispart
ksguhdipghisosipghudirlhgdr

johngg@shiraz:~ > perl -Mstrict -Mwarnings -E '
my $find = q{thatpart};
...
thatpart
ksguhdipghisosipghthispartudirlhgdr
Substring not found

johngg@shiraz:~ > perl -Mstrict -Mwarnings -MData::Dumper -E '
my $idStr = q{381980767204};
...
            );
ID 7204 found
ID 6720 not found