foreach my $to_delete (@ids)
{
   $to_delete =~ s/Message\-id:\s+//i;
   $to_delete =~ s/<//g;
   $to_delete =~ s/>//g;
   print "trying to delete $to_delete<br>";
   $pop->Delete($to_delete);
}
  $pop->Close();


##</code><code>##

Message-ID: <0016e646069637dafe049ec66ea8@google.com>
Message-ID: <90e6ba3fd257d1d9da049ec67ca9@google.com>
trying to delete 0016e646069637dafe049ec66ea8@google.com
trying to delete 90e6ba3fd257d1d9da049ec67ca9@google.com