note ChOas Very, VERY cool!!!!<BR> <BR> As the master said: "More than one way to do it there is" :<BR> <CODE> sub yoda { my ($sentence) = @_; my $Pivot=join '|',qw/is be will show do try are teach have/; # Move along, nothing to see here return $sentence unless ($sentence=~/\b$Pivot\b/); # Rearrange our words $sentence="$' $`$&"; # Clear leading spaces and Capitalise $sentence =~ s/^\s+//; $sentence = ucfirst(lc($sentence)); }; </CODE> <BR> <BR> GreetZ!,<BR><UL>ChOas</UL> <BR> <FONT SIZE="1">print "profeth still\n" if /bird|devil/;</FONT> 162190 162190