I happen to need the flip-flop after reading Flipin good, or a total flop?. The following behavior puzzles me, why does the first version print "after"? Thanks.

my @data = <DATA>;
print "Using lexical varible:\n";
foreach my $line (@data){
    if($line =~ /begin/../end/){
        print $line;
    }
}

print "\nNot using lexical varible:\n";
foreach (@data){
    if(/begin/../end/){
        print;
    }
}


__DATA__
before
begin
1
2
3
end
after

__RESULT__
Using lexical varible:
begin
1
2
3
end
after

Not using lexical varible:
begin
1
2
3
end
[download]