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
Thanks to newrisedesigns for eyeballing the original, looks a bit different, eh?
Ammendments: BrowserUK..
--
Brother Frankus.
¤