my @array = (
  'sn ThisUser',
  'mail: ThisUser@somewhere.com',
  'cn: This User',
  'uid: MyUID',
);

foreach my $line ( @array ) {
  if( $line =~ m/^mail:\s+([\S]+)/ ) {
    print "$1\n";
  }
}