in reply to First japh - a bit silly

Two small changes get you the newline (OK, there's an extra space afterwards, but I don't know how to fix that within the parameters of your code). 
#! /usr/bin/perl -w
use strict;
s;;\$uhJ;;$==0;eval;eval
join q,,,map{($;=$_)=~s=[\(
use japh
\$]==g;$=-=0b111x2-ord$;;$@=~m;^.{$=}(.);s;$1;;}qw
@toast=qw(bread) ;
$Qdir= chdir( Sort %_);
$Nine= $paQ-> Kill[-9];
$Yum{ Vanilla}++;
($j<=$p == $x+1 )? gmtime( 9, $Weeks);
Loader::Start( $P1, $P2, $Zip) : $?;
grep( 8, \@ARGV);
localtime( Time::Local, $Unclear, 5, $zoneinfo , ::F->{japh});
@;

[download]

Replies are listed 'Best First'.
Re^2: First japh - a bit silly
by muntfish (Chaplain) on Sep 08, 2004 at 10:37 UTC

    Not sure if I've missed the point here, but I can't get that to run without some spurious errors: 

    Possible attempt to separate words with commas at - line 14.
Use of uninitialized value in substitution (s///) at - line 2.
Use of uninitialized value in substitution (s///) at - line 2.

    [download]

    (This is with v5.8.0 on Unix and v5.8.4 on Win2K.)

    I've done another modification to the original, which gets the \n, and removes the silly stuff:

    use strict;
$==0;eval
q;\$uhJ;;$@=~s^\^^\\^;eval
join q,,,map{$=-=0b111x2-ord;$@=~m;^.{$=}(.);;$1}qw
$u ;
Q c S % N Q K Y V < = x ) g 9 W L P P Z : ? g 8 @ l T U 5 2 } 1
$;

    [download]
    s^^unp(;75N=&9I<V@`ack(u,^;s|\(.+\`|"$`$'\"$&\"\)"|ee;/m.+h/&&print$&
[reply]
[d/l]
[select]

      And a further refinement to compact the data string and remove the "wordy" join and map:

      use strict;
$==0;eval q;
$uhJ;
||$@=~s^\^^\\^&&s&&u;QcS%NQKYV<=x)g9WLPPZ:?g8\@lTU52}1&&&s
%.%$=-=0b111x2-ord$&;$@=~m;^.{$=}(.);;$1%ge&&eval

      [download]
      s^^unp(;75N=&9I<V@`ack(u,^;s|\(.+\`|"$`$'\"$&\"\)"|ee;/m.+h/&&print$&
[reply]
[d/l]
[select]
      If you don't like the warnings you could change the first line to #! /usr/bin/perl without the -w.
[reply]
[d/l]
[select]

In Section Obfuscated Code