Select Code to Download

use strict;
use warnings;
...

$. = 0;
foo($.);

use strict;
use warnings;
...
   $statement =~ /\b(t|f|true|false)\b/ or next;
   foo($1, $statement);
}

   foo(0+$.);
   # and
   foo("$1", $statement);