I think a simple split function will do the trick for you...

#!/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]