Select Code to Download

# Load constants
...
# Get the text from the previous paragraph
my $prev_text = $selection->Previous( $CONSTANT{wdParagraph} )->{Text}
+;

# Example title regex
...
       last if $text =~ $title_regex;
}