sub _on_left {
    my ( $s ) = @_;
    my @words = split ' ', $s;
    my $word_level = 3;
    return  $words[ $word_level - 1 ];
}