Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: shortest self-reproducing Perl program
Message-ID: <7494@jpl-devvax.JPL.NASA.GOV>
Date: 21 Mar 90 01:54:26 GMT
References: <1990Mar20.203516.8429@iwarp.intel.com> <7490@jpl-devvax.JPL.NASA.GOV>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 13

In article <7490@jpl-devvax.JPL.NASA.GOV> lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall) writes:
: 
: print<<''x 2,$/
: print<<''x 2,$/
: 
: 
: I haven't thought about one liners yet.

Here is a one-liner.  There may be shorter one-liners.

$_=q $_=qx;s/x/$"$_$"/;print ;s/x/$"$_$"/;print

Larry