my $req = bool_to_regexp($ARGV[0]);
print "using '$req' ...\n";

open (FILE, "stuff") || die "$!";
while(<FILE>) {
  if (eval($req)) {
    print $_;
  }
}
close FILE;