undef$/ ;
 open
 (
 d
, $0
)
  ;
$_=
<d>
 ;
           close
 (
d
)
 ;s/[^\n ]//g

;


s/ /0/g
   ;
     s/\n/1/g
 ;
for
  $i
      (
0   ..   23
 )
{
$a  =
  substr
(
        $_
, 5   *   $i
,   5
)
 ;
 print
(
  chr
 (
$a=~/0{5}/?32:(96+oct("0b$a"))
  )
 )
};

####################
################# NOTE, THERE IS NOTHING BEFORE
################# undef$/ ;
################# IT IS THE FIRST LINE
__END__
invoking perl f>>f yields (given you call your file f)
just another perl hacker