Corrected Title Case. Nice obfuscation.

#!/usr/bin/perl

@_=('(','2','`' ,'+','#','!','(',' ','`','2'
,'`','`',' ' ,'2','`','(','`','/','.'  ,'!',
' ','`','3','`','*');@__=('$','`','%'  ,'@',
'`','@','`',' '  ,',','`','%', '0',' ', '`',
'%' , '`','4','`'  ,'@','@',' ','4','`','5',
'`' );  map$_&='_',  @__[@___=(24,19,11,6)],
@_[@___];_(\@_,\@__);sub _{print pop@{$_[0]}
|pop@{$_[1]};  _($_[0] ,$_[1]) if @{$_[0]};}
[download]