Select Code to Download

use strict;
use locale;
...
__END__

_'nada_'komo_'el_'sol_

$string =~ s/(_)[^']/$1'/g;