Select Code to Download

sub sortByDate
{
...

    return ($aDate cmp $bDate);
}

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

use strict;
use warnings;
...
{ "date":"2015-01-02", "content":"erts" }

{ "date":"2014-04-02", "content":"w34r" }

Unsorted:
[
...
  { content => "asdf", date => "2015-03-01" },
  { content => "erwa", date => "2015-05-01" },
]