while (<DATA>) {
  push @ary,split;
}
print join " / ",@ary;
 
__DATA__
one two three four
boop noop boop crep

##</code><code>##

push @ary,split while (<DATA>);
print joint " / ",@ary;