c:\@Work\Perl\monks>perl -wMstrict -le
"my $location_id = 'Kansas';
 ;;
 my $string = qq{{\"category\"->'$location_id'}};
 print qq{:$string:};
 ;;
 $location_id = 'OverTheMoon';
 ;;
 $string = '{\"category\"->\'' . $location_id . '\'}';
 print qq{:$string:};
"
:{"category"->'Kansas'}:
:{"category"->'OverTheMoon'}: