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