I just tried to do it your way, but had no success. Instead i tried writing it like below, but now i am stuck with the fact that i get the error 'No such file or directory' and the code doesn't run with taint!

#! /usr/bin/perl

my $directory = '/var/log/cr_user/';
opendir DIR, $directory or die $!.$/;
my @files = readdir(DIR);
closedir DIR or warn $!.$/;

for my $file  (@files) {
    open FILE, $file or die $!.$/;
    my ( $username, $domain, $email, $service ) = split /,/, <FILE>;

print "$username";

    close FILE or warn $!.$/;
    unlink $file;
}
[download]