@list = split /.+(%+)/s, <FILE>;