my $auswahl=qx{ls /Verzeichnis/ | /egrep '^[a-zA-z]+[^\.][0-9]+\$'};
my @array=split(/ /,$auswahl);

if...