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