Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl -w

...
_'nada_komo_el_'sol_ : _'nada_'komo_'el_'sol_
_na'da_komo_el_so'l_ : _'na'da_'komo_'el_'so'l_
_na'da_komo_el_sol : _'na'da_'komo_'el_'sol

Select or download this

    $s =~  s/(_)([^_']+?)(?=_)/$1'$2/g;