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));
};
[download]

GreetZ!,

ChOas

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