use strict;
use warnings;

use Text::Balanced qw( gen_delimited_pat extract_multiple );

my $text = q{jfjsa as,.n d"fdsafjl"jop'fdsjklf fds'457"fjdsklaoir"jkl4
+5;fs ier987543" fsdjkal"};

my @extracted = extract_multiple($text, [
    gen_delimited_pat(q{'"}),
]);

print "$_\n" for @extracted;
[download]

jfjsa as,.n d
"fdsafjl"
jop
'fdsjklf fds'
457
"fjdsklaoir"
jkl45;fs ier987543
" fsdjkal"
[download]

Text::Balanced

Update: The difference between mine and OGB's is that mine allows escaped delimiters such as 'foo\'s room' and mine doesn't strip the delimiters as per your requested output.

split(/"|'/,<your funny string goes here)
[download]

#! /usr/local/bin/perl 

use strict;
use warnings;

my $str =qq(jfjsa as,.n d"fdsafjl"jop'fdsjklf fds'457"fjdsklaoir"jkl45
+;fs ier987543" fsdjkal");

my @arr = split(/'|"/,$str);

print("Number of bits: ", scalar(@arr),"\n");
print("Resultant array: " , join('  ', @arr), "\n");

exit(0)
[download]

Resultant array: jfjsa as,.n d  fdsafjl  jop  fdsjklf fds  457  fjdskl
+aoir  jkl45;fs ier987543   fsdjkal
[download]

I don't think that your code does quite what the OP wanted. The contents of the wanted array as posted indicate that the single- and double-quotes should be preserved around the text they are quoting. This could be achieved using a capture in the regex used to split the string.

#!/usr/bin/perl -l
#
use strict;
use warnings;

my $str =
   q{jfjsa as,.n d"fdsafjl"jop'fdsjklf fds'457"fjdsklaoir"jkl45;fs ier
+987543" fsdjkal"};

my $rxSplit = qr
   {(?x)                     # Use extended syntax
       (                     # Open capture group
       (?:                   # Open group for alternation of
       "[^"']*"              # "whatever"
       |                     # or
       '[^"']*'              # 'some other thing'
       )                     # Close alternation group
       )                     # Close capture group
   };

my @arr = split m{$rxSplit}, $str;
print for @arr;
[download]

The output.

jfjsa as,.n d
"fdsafjl"
jop
'fdsjklf fds'
457
"fjdsklaoir"
jkl45;fs ier987543
" fsdjkal"
[download]

I hope this is of interest.

Cheers,

JohnGG

That creates empty elements if you have two delimited strings in a row. split really isn't the right tool.

$ perl -le'
$x = qq[jfjsa as,.n d"fdsafjl"jop\047fdsjklf fds\047457"fjdsklaoir"jkl
+45;fs ier987543" fsdjkal"];
print $x;
@x = $x =~ /"[^"]*"|\047[^\047]*\047|[^"\047]*/g;
print for @x;
'
jfjsa as,.n d"fdsafjl"jop'fdsjklf fds'457"fjdsklaoir"jkl45;fs ier98754
+3" fsdjkal"
jfjsa as,.n d
"fdsafjl"
jop
'fdsjklf fds'
457
"fjdsklaoir"
jkl45;fs ier987543
" fsdjkal"
[download]

#!/usr/bin/perl

use strict;

my $string = qq{jfjsa as,.n d"fdsafjl"jop'fdsjklf fds'457"fjdsklaoir"j
+kl45;fs ier987543" fsdjkal"};
my @arrays = split( "\"|\'", $string );

print join "\n", @arrays;
[download]