Select Code to Download

use Data::Dumper;
for my $record (split m/\n\n\n/, $tempStr){
...
   }
   print Dumper \%user_info if %user_info;
}