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
In reply to Re: Getting data out of __DATA__ and __END__
by mirod
in thread Getting data out of __DATA__ and __END__
by George_Sherston
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |