if (m/Reply issued by (.*?):(.*)/) {
  my $issuer = $1;
  my $msg = $2;
  print " $issuer \n $msg \n";
}