my($aDate) = $a =~ /date\"(\d{4}-\d{2}-\d{2})"/;
    my($bDate) = $b =~ /date\"(\d{4}-\d{2}-\d{2})"/;