Select Code to Download

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxx
...
xxxx*@user_info_end
xxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxx

if( $file_content =~ m/(.*?\@user_info_start.*?\n)(.*)(.*?\@user_info_
+end.*$)/si){
my $user_info= $2;
}