# assuming you've got the RE in $re ... my @parts = split /(?=$re)/, $string;