for (keys %user_data) {
  # basically just ripping some junk out
  $user_data{$_}=~s/[<>|\/\&\(\)\;\`]/ /g;
}

# and then... whatever you want..
foreach (sort keys %user_data) {
  print OUT substr($_, 1, 200),"\n";
  print OUT "$user_data{$_}\n"
}