#!/usr/bin/perl
use strict;
use warnings 'all';

my $str = 'bla_blub_bla';

print( $str =~ /([^_]+)_/g , "\n");
print( $str =~ /([^_]+)_/g , "\n");