#!/usr/bin/perl -w

open FOO, "< /dev/null"
    or die "No foo: $!\n";
#scalar(<FOO>) =~ /bar/
(rf() =~ /bar/)
    and print "bar\n";

sub rf
{
  return scalar(<FOO>);
}