#!/bin/perl -w
use strict;

{ local $/=' '; # here's your fixed string!
my @ary = <DATA>;
print join(" / ", @ary);
}
__DATA__
boop noop boop crep