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

    local $/ = '%';

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