code:

---

#!/usr/bin/perl -w
use strict;

my @Sentences = ('I will teach you',
                 'The truth is out there',
                 'That is an Imperial shuttle',
                 'ChOas has too much free time',
                );

print Yoda($_)."\n" for(@Sentences);

sub Yoda {
    my ($sentence) = @_;

    my $Pivot=join '|',qw/has is be will show do try are teach have/;
    return $sentence unless ($sentence=~/\b$Pivot\b/);

    $sentence="$' $`$&";

    $sentence =~ s/^\s+//;
    $sentence = ucfirst(lc($sentence));
};

---

quote:

---

Op woensdag 29 mei 2002 11:40 schreef Bastard het volgende:
Klote dat ik geen Pearl ken

---

quote:

---

Op woensdag 29 mei 2002 11:50 schreef KOE het volgende:Pearl is een brillenzaak

---

quote:

---

Op woensdag 16 april 2003 14:36 schreef lzandman het volgende:

[..]

Oh ja? Ik ken alleen de Pearle

---

Must get laid !