Select Code to Download

while(  /foo(.*?)(tar)?bar/g  ) {
    next   unless $2;
    ...
}

my( $state, $prev, @match )= ( "no foo" );
foreach my $tok (  split /(foo|tarbar|bar)/, $string  ) {
...
    }
    $state= "no foo";
}