# Example title regex my $title_regex = qr/ Table \s ( \d+ ) : /xms; # Check only the five previous matches ( Could also keep checking until you find a match with a while ) for ( 0 .. 5 ) { # Get previous paragraph # Get Text # Exit or do somthing else if the title is found. last if $text =~ $title_regex; }