I wrote the following program the other day just to see where if anywhere the order of execution is defined within a statement. Its meant to be run from the root of your perl source tree. The net result: nada.

use strict;
use File::Find;

find(
    sub {
        return 1 if -d;

        my @chunks = read_file() =~ /^[^\n]*\border\b.{1,30}\bof\b[^\n
+]*/gims;
        return unless @chunks;

        print "$File::Find::name: @chunks\n\n"
    },
    "."
);

sub read_file {
    local $/;
    local @ARGV;
    push @ARGV, (@_ ? @_ : $_);
    <>
}
[download]