local $\ = "\n";  # line feed at end of print
while(<>) {
    if(/\bPeer: (\w):\s+(\d+\.\d+\.\d+\.\d+):\s*(\d+)/) {
        print $2;
    }
}

##</code><code>##

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