The easiest way is to locally re-set your record separator. Normally this is set to newline, but you can set it to anything you like:

my @quotes = ();
if( open(FILE,$myfile) ) {

    local $/ = '%';

    @quotes = <FILE>;
 
    close FILE;
}
else {
  print "oops, i need to check why the file didn't open...";
}
[download]