Extract single line for an array based on text at the start of the line.

#!/usr/local/bin/perl
use strict;
use Net::POP3;
my $server = "mail.cisl.bb";
my $username = 'username';
my $password = "password";
my $messages;
my $message;
my $msgid;
my $pop = Net::POP3->new($server, Debug => 0) ||
    die "Can't open connection to $server : $!\n";
defined ( $pop->login($username, $password) ) ||
    die "Can't authenticate: $!\n";
$messages = $pop->list || die "Can't get list of messages : $!\n";
foreach $msgid (keys %$messages)
   {
   $message = $pop->get($msgid);
  if ( $message )
      { #succeeded
     print "\n"; print @$message;
      }
   else
      { #failed
      warn "Couldn't fetch $msgid from mail server ; $!\n";
      next;
      }
	$pop->delete($msgid);
   }
$pop->quit();