diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index 5f691b989f5eeadcb4777dab3dd323e44c591d5c..dc6409e97fec7e39348e86a243723d53c9244bfa 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -561,6 +561,16 @@ XPATH
     return \@dates;
   }
 
+sub get_purged_notes($xp, $amd) {
+  my @entries_str = map {$_->nodeValue} $xp->findnodes($compiled_xpath_purged_event_reason, $amd);
+  my @results;
+  foreach my $e ( @entries_str) {
+    my @entries = split(/;/, $e);
+    push @results, List::Util::first{ s/note=//; } @entries
+  }
+  return \@results;
+}
+
   sub get_purged_reasons($xp, $amd) {
     my @entries_str = map {$_->nodeValue} $xp->findnodes($compiled_xpath_purged_event_reason, $amd);
     my @results;