@newlist = flat { s/START$;(.*)$;END/$1/ } @list
 
sub flat (&@) {
  my ($code,@list) = @_;
 
  local ( $;, $_ ) = join_reliably (@list);
 
  $code->();
 
  return split $;, $_
}