Select Code to Download

if (m/Reply issued by (.*?):(.*)/) {
  my $issuer = $1;
...
} else {
  # not a Reply issued by message
}