$data = do { local $/ = undef; <DATA> };

print \$_, "\n" for
    scalar($data =~ s/\n/\n/g),
    scalar($data =~ s/(\w+)/\1/g);

__DATA__
Line1 Word Something
Line2 Other Word

##</code><code>##

SCALAR(0x239224)   \ Same var!
SCALAR(0x239224)   /