Select Code to Download

$string = '"I have a 15" latter and a 6" foot arm."';
$string=~s#(^")(.+?)("$)#$1.Quot($2).$3#eg;

$string=~s#(^")([^\n]+)("$)#$1.Quot($2).$3#eg;

sub Quot
...
    $line=~s#"#"#g;
    return $line;
}