Select Code to Download

#!/usr/bin/env perl

...
and at end of line: d"alice
"d"alice"
'd"alice'

... and am having trouble with strings containing d".
... if the input string is alice I need ...
...
and at end of line: alice
"alice"
'alice'