use strict;
use warnings;
use 5.010;


my $string = "_'nada_komo_el_'sol_";

my @pieces = split /_'?/, $string;

say join(q{_'}, @pieces);

--output:--
_'nada_'komo_'el_'sol