Select Code to Download

if ($file_content =~ m{ \@user_info_start \s* \n (.*?) \n [^\n]*? \@us
+er_info_end (?! \S) }xms) {
    my $user_info = $1;
    ...
    }