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:Pearl is een brillenzaak
Op woensdag 29 mei 2002 11:40 schreef Bastard het volgende:
Klote dat ik geen Pearl ken
quote:Oh ja? Ik ken alleen de Pearle
Op woensdag 29 mei 2002 11:50 schreef KOE het volgende:Pearl is een brillenzaak
quote:www.hansanders.nl
Op woensdag 16 april 2003 14:36 schreef lzandman het volgende:[..]
Oh ja? Ik ken alleen de Pearle
Must get laid !
|
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |