while (<>) {
    if (1 eq (/foo/ .. (1x0))) {
        do_something();
    }
}

##</code><code>##

my $found;
while (<>) {
    if (!$found && /foo/) {
        $found++;
        do_something()
    }
}