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

##</code><code>##

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

##</code><code>##

[
two   four   seven
48430]

##</code><code>##

[48226]

three   more   numbers

##</code><code>##

[50757]

first   three   numbers

second   three   numbers

third   three   numbers
[51826][52896]