Select Code to Download

while (content =~ m%One(.*?)three(.?)five\s+six(.*?)this%gs) {
$var1 = $1 ;
$var2 = $2 ;
$var3 = $3 ;
print "$var1\t$var2\t$var3\n" ;
}

while (content =~ m%One(.*?)three(.?)five\s+six(.*?)this%gs) {
print(STDERR  "[", pos($content), "]") ;
$var1 = $1 ;
...
$var3 = $3 ;
print "$var1\t$var2\t$var3\n" ;
}

[
two   four   seven
48430]

[48226]

three   more   numbers

[50757]

first   three   numbers
...

third   three   numbers
[51826][52896]