Select Code to Download

perl -le 'push @{$f[/ad/]}, $_ foreach glob("*.mp3"); use Data::Dumper
+; print Dumper(\@f)'

perl -le '@f = glob("*.mp3"); push @{$f[/ad/]}, $_ foreach @f; use Dat
+a::Dumper; print Dumper(\@f)'

This is perl, v5.10.0 built for i386-linux-thread-multi