mailq | perl -lane '$/=q[]; print $F[0].q[ ].$F[$#F].$/ unless /^-/;'