no ho capito, ma il codice che ti ho scritto non va bene, non puoi adattarlo ?
Una cosa del genere:
Passi l'id -> Regex estrae tutti gli altri -> Per ogni id richiama la funzione ricorsivamente.
codice:
#Pseudocode

sub getFriends {
   
   my $id = shift;
   
   my @amici = prendi_gli_amici_di_$id;
   
   foreach(@amici){
      
       getFriends($_);
      
   }
   
}
naturalmente salvi il risultato in qualche file.

P.S.: è un qualcosa di abbastanza lento, la ricorsione, soprattuto eni linguaggi come perl, può far schizzare la CPU al 100%