#!/usr/bin/perl

use warnings;
use strict;

print "Vokal in SAMPA-Zeichen eingeben: ";
chomp(my $vokal = <STDIN>);

opendir(my $fhDir, "c:\\") or die $!;
my @files = grep { $_ =~ m/$vokal/i } readdir($fhDir);
closedir($fhDir) or die $!;

print join("\n", @files)."\n";