Perl one liner challenge

In article <5aa959$67l@cdn_news.telecom.com.au>,
Steven Lee <c822535@vuh263.telecom.com.au> wrote:
>Is it possible to make this script into a one liner?

You can easily do it in two.

    #! /usr/local/bin/perl -n
    BEGIN { $| = 1 } map { print; select undef, undef, undef, 0.01 } split //;

Tim.
--
Tim Goodwin   | "A language needs both intestines and guts." -- Larry Wall

Original headers:

From: tim@pipex.net (Tim Goodwin)
Newsgroups: comp.lang.perl.misc
Subject: Re: Perl one liner challenge
Date: 7 Jan 1997 13:07:46 GMT
Organization: UUNET PIPEX
Message-ID: <5athr2$qo@wave.news.pipex.net>
References: <5aa959$67l@cdn_news.telecom.com.au>