#!/usr/bin/perl

use warnings;
use strict;
use Data::Dumper;

my $sample = "Heswqe llo asdaBe llo ro llo ka llo ge llo";

my @arr = split /llo/, $sample, -1;

print Dumper( \@arr );