use 5.014;
use Data::Dumper;
my @arr = ('!', 'my', 'name', '!', 'is ', '!');
my $joined = join '' => map { s/^\s+|\s+$//g; $_ } @arr;
$joined =~ s/^!|!$//g;
my @result = split /!/ => $joined;
say Dumper(@result);