#!perl -w
use strict;
$0 = "/dev/null";
*CORE::GLOBAL::exit = sub { 'true' };
eval {require Acme::MJD};
open my $fh, '<', $INC{'Acme/MJD.pm'} or die;
1 while <$fh> !~ /^__DATA__/;
print "Klortho bus fundKlortho bus fund
\n";
while (<$fh>) {
s/[\n\r]+\z//sg;
s/(\#\d+) //;
my $num = $1;
my $key = "s1";
my @sentences = ((split /[\.!\?] /, $_), '_', '_');
my @frags;
foreach (@sentences[0..2]) {
s/\.$//;
s/([^-A-Za-z_0-9+ ])/sprintf "%%%02X", ord $1/ge;
tr/ /+/;
push @frags, "$key=$_";
++$key;
}
my $url = 'http://ruletheweb.co.uk/b3ta/bus/?' . join '&', @frags;
print "- $num
\n";
}
print "
\n";