if ( $filedata =~ /#begin\n (.*?) #end\n .*? #begin2\n (.*?) #end2/sx ) {
    ( $block1, $block2 ) = ( $1, $2 );
    @arr_block1 = split /\n/, $block1;
    @arr_block2 = split /\n/, $block2;
}