in reply to from $string to shining $string

You can achieve this by setting the variable $/ to '%' before reading in the contents of the file:

local $/ = '%'; my @contents = <FILE>; # each element is the percent separated bit

/J\