Avoid double-heredoc

- Easier to understand
- Doesn't blow up highlights for the entire file in atom

Author: zoffixznet

S32-list/seq.t

@@ -15,9 +15,7 @@ is-deeply @b[0].Array, @result, 'seq => array works 2';
 
 
 my @expected-searches = <beer masak vacation whisky>;
-my ($y, @searches) = q:to/INPUT/, q:to/SEARCHES/.lines;
-    xxxx
-    INPUT
+my ($y, @searches) = "xxxx\n", q:to/SEARCHES/.lines;
     beer
     masak
     vacation