Select Code to Download

use warnings;
use strict;
...
xxxx*@Product       : xxxx
xxxx*@user_info_end
xxxxxxxxxxxxxxxxxxxxxxxxxxxx

$VAR1 = [
          'xxxx*@user_info_start',
...
          'xxxx*@Product       : xxxx',
          'xxxx*@user_info_end'
        ];

    if ( my $flag = /\@user_info_start/ ... /\@user_info_end/ ) {
        push @userinfo, $_ unless $flag==1 || $flag=~/E0/;
    }