#! /usr/bin/perl -w

use strict;
use locale;

for my $s ( @{[
    "_'nada_komo_el_'sol_",
    "_na'da_komo_el_so'l_",
    "_na'da_komo_el_sol"
]} ) {
    print $s;
    $s =~  s/(_)([^'][^_]+?)/$1'$2/g;
    print " : $s\n";
}

__END__

> perl -w tmp.pl

_'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