My Second obfuscated code...

I saw this way of making OC and tried to make something similar to practice. what you think about it?

 use strict;


$/="";for(split(//,<DATA>)){my($_2)=$_=~/(\w)/; $@.=$_2;}
print $@."\n";

__DATA__

      H#$  (*&  *))  ^%#  *^$#@!@#    ,###,    &%#!@#$%  ^%#@$%^#
      $@!  (()  @@)  &%$  @##        (     )   @!@          #%
      ^*(  @#$  !!)  &^%  ^(($@#$%  (( ( ) ))  &))          ^^
      (#%^^|$*  *^%  (u&       S#@  (( (o) ))  !@F@#%       @!
      (#   @||  !^@  $#@       !@#   (     )   &(%          !)
      !)(  |||  (!(#@^#$       ^(#   `(   )'   !))          #t
      ##@  |||  !##@#@^&  @!((%&&(     ###     *%^          ##
[download]

Comment on My Second obfuscated code... Download Code

Replies are listed 'Best First'.
Re: My Second obfuscated code... by zentara (Cardinal) on Sep 24, 2002 at 15:32 UTC
Not too obfuscated. I download your code, ran a dos2unix conversion on it, and when I looked at it midnight commander, the data said "HUSOFT" plain as day.	[reply]
Re2: My Second obfuscated code... by blakem (Monsignor) on Sep 25, 2002 at 00:51 UTC
No need to downvote someones second obfu attempt. Obfu takes a lot of practice and discouraging someone just starting out seems a bit unnecessary. (warning them of the evils of obfu, on the other hand..... ) For what its worth, here is a golfed version of the obfu code. `print/(\w)/g for<DATA>` [download] -Blake	[reply] [d/l]
Re: Re2: My Second obfuscated code... by Anarion (Hermit) on Sep 30, 2002 at 10:36 UTC
You can remove parents then: `print/\w/gfor<DATA>` [download] $anarion=\$anarion; s==q^QBY_^=,$_^=$[x7,print	[reply] [d/l]
Re: Re: My Second obfuscated code... by zentara (Cardinal) on Sep 24, 2002 at 15:37 UTC
EH, now that I think about it, it does have a certain "coolness" to it. The data is an acsii-art HUSOFT, yet it prints it when run.	[reply]