my $call = `mminfo -r 'volume,state,written,%used,space,pool,location,ssinsert' -q 'ssinsert <= three week ago`;

##</code><code>##

my @call = `mminfo -r 'volume,state,written,%used,space,pool,location,ssinsert' -q 'ssinsert <= three week ago`;

##</code><code>##

foreach ( @call )
{
    if ( /Daily\S+\s/ )
    {
        print "Daily true $_ .\n";
    }
    else
    {
        print "Not found\n";
    }
}