in reply to How do I match this without lookbehind?
my @results = grep {$_} split /([~]*?[^~])/, $input;
In Section
Seekers of Perl Wisdom
in reply to How do I match this without lookbehind?
my @results = grep {$_} split /([~]*?[^~])/, $input;