my $lamb;
my $mary="Little Rabbit Foo Foo ";
$lamb->{data}[0] = 'wolf';
my $text = '$mary had a little $lamb->{data}[0].';
$text =~ s/(\$[\w\-\>\{\}\[\]]+)[ \.]/$1/eeg;
print $text;