#!/usr/bin/perl -w

use strict;
use warnings;


my @test = qx'fgrep "(22.5.1983)" /test/old/* -l';

foreach my $x (@test)
{
     chomp($x);
     print "Debug: ".$x."\n";
}