#!/opt/bin/perl

chop($source = `pwd`);
unless (opendir(DIR,"$source"))
{
    die "Can't open directory '$source': $!\n";
    exit;
}
@entries = readdir(DIR);
closedir(DIR);
$source =~ s!/$!!;
for (@entries)
{
    next if ($_ eq '.');
    next if ($_ eq '..');
    if (/^(.+)\.txt$/)
    {
        system("chown $1 $source/$_");
    }
}