Nothing special, was bored one friday afternoon at work, not much obfuscation in it, but I was having fun playing around with predefined variables, this was the result...

#!/usr/bin/perl -w
use strict;$/="__DATA__";@_=<DATA>;
chomp(@_);$/="\n";chomp(@_);
map{s/\n|\s+//g}@_;$,=" ";
print @_;

__DATA__
  just
__DATA__
 another
__DATA__
  perl
__DATA__
 hacker
[download]