in reply to Yoda Speak Translator

Very, VERY cool!!!!

As the master said: "More than one way to do it there is" :
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)); };


print "profeth still\n" if /bird|devil/;