Select Code to Download

map { 
    if ( m/^(.+?)\((\d+)\)\s-\s\[(.+?)\].+?"(.*?)"\.$/ )
...
        [$_,$disc_file,$page,$key];
    }
}

map {
    m/^(.+?)\((\d+)\)\s-\s\[(.+?)\]/
        ? [$_,$1, $2, $3]
        : ()
}