PHP - SCRAPE AND WRITE CSV

<?php

//reporto errori
error_reporting(E_ALL);
ini_set("display_errors","On");
set_time_limit(0);
ini_set("memory_limit", -1);

//cancella file
if (file_exists("lista.csv")) unlink("lista.csv");

//unlink("prova.csv");



$marks = [

    "http://www.blackcave.it/lista/scripts.php" => ["name" => "#blackcave", "server" => "irc.tin.it"],
    "http://import.gigeweb.de/lista/scripts.php" => ["name" => "#immense", "server" => "irc.tin.it"],
    "http://r3volution.altervista.org/scripts.php" => ["name" => "#revolution", "server" => "irc.tin.it"],
	"http://www.serie-tv.cartaplayfan.org/scripts.php" => ["name" => "#serie-tv", "server" => "irc.irc-files.org"],
	"http://www.irc-files.cartaplayfan.org/listafilm/scripts.php" => ["name" => "#films", "server" => "irc.irc-files.org"],
	"http://www.silvestro.irc-files.org/scripts.php" => ["name" => "#silvestro", "server" => "irc.irc-files.org"],
	"http://www.magic.irc-files.org/scripts.php" => ["name" => "#magic", "server" => "irc.irc-files.org"],
	"http://www.hd.cartaplayfan.org/scripts.php" => ["name" => "#irc-HD", "server" => "irc.irc-files.org"],
	"http://www.fantasyland.irc-files.org/scripts.php" => ["name" => "#fantasyland", "server" => "irc.irc-files.org"],
	"http://lista.oceanirc.net/lwo/scripts.php" => ["name" => "#oce@n", "server" => "irc.oceanirc.net"],
	"http://www.fantasyland.irc-files.org/scripts.php" => ["name" => "#fantasyland", "server" => "irc.irc-files.org"],

	];





foreach ($marks as $name=>$scores){
    //echo $name ." - ". $scores["server"] . " - ". $scores["name"] . ".\r";


    $chanserv = $scores["name"].";".$scores["server"];


    $input = @file_get_contents($name) or die("Could not access file: $name");

    //rimuovo prima lettera in questo caso ";"
    $str1 = ltrim($input);
    //rimpiazzo gli spazi con ;
    $str = preg_replace('/\s+/', ';', $str1);


    //porto a capo quando trovo ;#
    $all = str_replace(";#", "\n\r", $str);
    //($all = str_replace(";#", $chanserv, $str);
    //$str.= $chanserv;


    //rimuovo prima lettera
    $all2 = substr($str,1);
    //rimuovo ultima lettera
    $all3 = substr_replace($all2, "", -1);
    $print = str_replace(";#", ";".$chanserv."<br>", $str);


    echo $print;
    echo memory_get_usage();


	/*
    $data = $all3.PHP_EOL;
    //$fp = fopen($scores["name"].".csv", 'a'); singoli files
	$fp = fopen(lista.".csv", 'a');
    //fwrite($fp, $data);
	fwrite($fp, $print);
	*/



	$data = $all3.PHP_EOL;
	$handle = fopen("lista.csv", 'a');

    fwrite($handle, $data);
    fclose($handle);


}