Hi Andrew Kenton Mitchell

Try this

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

or

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

sub Quot
{
    my ($line)=@_;
    $line=~s#"#"#g;
    return $line;
}
[download]

Thanks,

Gopal.R