my $string = join( '', @mycells);
my @result = split( '!', $string);

# remove empty elements, using something like....
my @finalResult = grep { $_ ne '' }, @result;