use warnings;
use strict;

my @userinfo;
while (<DATA>) {
	chomp;
	if ( /\@user_info_start/ ... /\@user_info_end/ ) {
		push @userinfo, $_;
	}
}

use Data::Dumper;
print Dumper(\@userinfo);

__DATA__
xxxxxxxxxxx
xxxx*@user_info_start
xxxx*@Title         : Mr
xxxx*@Username   : xxxxx
xxxx*@Filetype    : txt
xxxx*@Version       : 0001
xxxx*@Create_Date       : 20190407
xxxx*@Product       : xxxx
xxxx*@user_info_end
xxxxxxxxxxxxxxxxxxxxxxxxxxxx

##</code><code>##

$VAR1 = [
          'xxxx*@user_info_start',
          'xxxx*@Title         : Mr',
          'xxxx*@Username   : xxxxx',
          'xxxx*@Filetype    : txt',
          'xxxx*@Version       : 0001',
          'xxxx*@Create_Date       : 20190407',
          'xxxx*@Product       : xxxx',
          'xxxx*@user_info_end'
        ];

##</code><code>##

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