if ($time_string =~ /\2013-\04-(\01)/ && ($1>=01 && $1<=20)) 
{
        print "File $name has an mtime of $time_string\n";
        $ftp->get($name)
                or die "get failed ", $ftp->message;