sub f{
  $_="Adrien, Benjamin, Philippe";
  ${$_}=shift@_ for(m/\b(\w)/g);
  $B unless$P and f($B,$B+$A,$P><DATA>?$P-$.:$?,);
}
print f($|++,<DATA>,shift@ARGV),"\n";
__DATA__
1