Select Code to Download

while (content =~ m%One(.*?)three(.?)five\s+six(.*?)this%gs) {
       ^^^^^^^

$|=1;
while (
...
   $var3 = $3 ;
   print "$var1\t$var2\t$var3\n" ;
}