Select Code to Download

$_ = "mypic.jpg.jpg";
if (/^(.*)(\..*)/s) { 
...
        $p=~y/./_/; $_ = $p.$s; 
}
print $_, $/;

$_ = "mypic.jpg.jpg";
/^(.*)\./s and substr($_, 0, $+[1])=~s/\./_/g;
print $_, $/;