# You wrote
if ( $line =~ /PatternBegin/ .. $_ =~ /PatternEnd/ ) {

# You wanted.
if ( $line =~ /PatternBegin/ .. $line =~ /PatternEnd/ ) {