my $string = qq/This&and+that/;
my @segments = split /(&)|\+/, $string;
print "$_\n" foreach @segments;

__OUTPUT__
This
&
and
Use of uninitialized value in (.) concatenation or string at mytest.pl line 4.

that