my $string = ...;
$string =~ s/:/=>/g;
my $datastruct = eval $string;