Question

Is there any way to break a string at defined position of a pattern by using perl split function? For example, by using @array=split(/pattern/, $string) one gets array of split $string but parts of string defined by pattern are missing in that array. Is it possible to specify which position of a pattern to split at, such that all pieces of initial $string are contained in @array?

Answer 1

From your example it looks like you want to split at a point, say, after tg and before gg.

Because split uses a regular expression you can use look-around assertions.

Read about them under Extended Patterns in perlre

For example

use strict;
use warnings;

my $s = 'aaaatgggccc';

my @fields = split /(?<=tg)(?=gg)/, $s;

print "$_\n" for @fields;

output

aaaatg
ggccc