This runs on Debian Woody, using 5.6.1. I hope it works other places too...
It can take an argument, if you want to run it in "Perl advocacy mode",
(Takes an argument... Perl advocacy.. heh ;)

try both... hope you like it.

#bash > ./index.pl
OR 
#bash > ./index.pl 1


#!/usr/bin/perl

use strict;
no strict 'refs';
no warnings;
use Data::Dumper;

$Data::Dumper::Quotekeys=0;$Data::Dumper::Varname=';';$~=!
$ARGV[0];sub is::all_you_need{while($_=shift){$\=$,="\n";$
Data::Dumper::Pad=$~?$_:$^X;s/'|$/::/g;print sort{length$a
<=>length$b}map{s/^|\W'\W|$//gs;s/n::/n'/g;s/:+|_/ /g;$~||
s|t(?=ha)|w|g;s/[^a-z' ]//ig;s/( (?= ))//g;$~||s(you can)
(you have to);$_}grep{!/;/}split/\n/,Dumper\%{$_}}};


*There's_Nothing_you::can_do= *that_can't_be_done; (*love::love ='love
+'),
*Nothing_you::can_sing= *that_can't_be_sung; (*love::love=*love),
*Nothing_you::can_say= *but_you::can_learn_how_to_play_the_game,

       *it's_easy;


*There's_nothing_that_you::can_make=*that_can't_be_made; ($love::love.
+='love'),
*noone_you::can_save=*that_can't_be_saved; (*love::love_love),
*nothing_you::can_do=*but_you::can_learn_to_be_you_in_time;

       *it's_easy;


   *all_you_need_is = 'love'; 
   *all_you_need::is = *love;
   *all_you_need=( 'is','love');
   *all_you_need=*is::love::love;
   *love=*is::all_you_need;

*There's_nothing_you::can_know=*that_isn't_known; ($love::love.=' love
+');
*Nothing_that_you::can_see=*that_isn't_shown; ($love::love.=' love'); 
*Nowhere_that_you::can_be=*where_you_aren't_mean't_do_be;


      *it's_easy


  = '';@all_you::need, *is::love  =
   *all_you_need = *is'love;
   *all::you_need=*is_love;
   *all_you::need=*is::love::love;
   *Love::is=*all_you_need::;


# Everybody! ....

&love,&love,love(
"There's_Nothing_you",,,,,,,
"Nothing_you",,,,,,,
'it',,,,,,,,,,

);&love,&love,love(
"There's_nothing_that_you",,,,,,,
"noone_you",,,,,,,
"nothing_you",,,,,,,
'it',,,,,,,,,,

'all' x ( 1*$~),,,,,,,,,,
'all' x ( 1*$~),,,,,,,,,,
'all_you'x(1*$~),,,,,,,,,,
),&love,&love('Love');
&love,&love,love(
"There's_nothing_you",,,,,,,,,,
"Nothing_that_you",,,,,,,,,,
"Nowhere_that_you",,,,,,,,,,
'it',,,,,,,,,,

'all' x ( 1*$~),,,,,,,,,,
'all' x ( 1*$~),,,,,,,,,,
'all' x ( 1*$~),,,,,,,,,,
'all' x ( 1*$~),,,,,,,,,,
'all_you'x(1*$~),,,,,,,,,,

),&love('Love');is::all_you_need

[download]

Thanks to newrisedesigns for eyeballing the original, looks a bit different, eh?

Ammendments: BrowserUK..

--

Brother Frankus.

¤

In reply to Just another Perl hippy ;^) by frankus

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.