if ($k =~ /BEGIN/ .. $k =~ /END/)