use JSON qw( decode_json );     # From CPAN
use Data::Dumper
my $json_text= "....";    
    my $decoded_json = decode_json( $json_text );
    #print Dumper $decoded_json;
    	foreach my $value ( @{ $decoded_json->{'responseData'} } ) {
        print my $value->{'translatedText'} ;
}