local($\, $,) = ("\n", " "); 
while(<>) {
    if(/([\d:.]+).*?\bPeer: (\w):\s+(\d+\.\d+\.\d+\.\d+):\s*(\d+)/) {
        print $1, $3;
    }
}