#! /usr/bin/perl -w

use strict;
use locale;

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

__END__
C:\test>junk57
_'nada_komo_el_'sol_ : _'nada_'komo_'el_'sol_
_na'da_komo_el_so'l_ : _'na'da_'komo_'el_'so'l_