Select Code to Download

use File::Slurp;

if($msg =~ /(.*)\+\+/) {
...

  overwrite_file($karma_file, @data);
}