Select Code to Download

#!perl
use strict;
...
    print " Found.  Starts at position - $idx\n"
}
print "\n"

VinsWorldcom@C:\Users\VinsWorldcom\tmp> test.pl
101001 Found.  Starts at position - 3
101000