use JSON;
use Data::Dumper;
my $json = <DATA>;
my $data = decode_json($json);
print Dumper $data;
__DATA__
[{"id":2911,"title":"Rush Hour","comments":"Fun :-)"},{"id":3217,"title":"Titanic","comments":"Drama, too long"},{"id":6518,"title":"Bambi"},{"id":7388,"title":"Star Wars","comments":"\"I'm your father!\""}]