in reply to Getting data out of __DATA__ and __END__
If all the _DATA__ section is on one line then the easiest seems to be:
#!/bin/perl -w use strict; { local $/=' '; # here's your fixed string! my @ary = <DATA>; print join(" / ", @ary); } __DATA__ boop noop boop crep
|
|---|