Many thanks in advance...

@files = glob "*.log";
$count = 1;
foreach $file (@files) {
    next unless $file =~ /planetlab/;
    open FILE, >"/home/imperial_crossbt/results/logging/".$count.".log
+";
    print FILE "begin\n";
    local($\, $,) = ("\n", " "); 
    while(<>) {
        if(/([\d:.]+).*?\bReceived.*?\bBT_PIECE.*?\bdata.*?\bPeer: (\w
+):\s+(\d+\.\d+\.\d+\.\d+):\s*(\d+)/) {
            print FILE $3;
        }
    }
    print FILE "end";
    print "$file\n";
    close FILE;
    $count++;
}
[download]