my ($start,$middle,$end) = $string =~ /^(.*?)(($pattern)+)(.*?)$/g;

##</code><code>##

my ($start,$middle,undef,$end) = $string =~ ...