#!/usr/sbin/perl
use warnings;
use strict;
my ($pubkey,$tmp,$name,$email);
while(<>){ # read from STDIN
    $pubkey = $tmp if(($tmp) = m#([A-Z0-9]{8,40})#g);
    ($name,$email) = m#^uid\s*(?:\[[^\]]*\])?\s*(.*)\s*<([^>]*)>#ig;
    print join("\n",$pubkey,$name,$email),"\n" if($pubkey and $name and $email);
};
