c:\perl>perl json.pl
Use of uninitialized value $_ in substitution (s///) at get.pl line 14.
malformed JSON string, neither array, object, number, string or atom, at character offset 0 (before "(end of string
)") at get.pl line 15.