http://www.perlmonks.org?node_id=1017639


in reply to Replace the double quote escape sequence as unescape sequence

$cmd = 'AT +CGDCONT= 1,"IP","","",1,1';

# A regular expression only...
$cmd =~ /(?{s{"}{\\"}g;print"'$_'\n"})/;

[download]
package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name

In Section Seekers of Perl Wisdom