http://qs321.pair.com?node_id=11137039


in reply to Re: Parsing/regex help required
in thread Parsing/regex help required

each paragraph text is captured using mojo->all_text so that's all good. Running that code:
my $entry = "123. The Quick brown fox jumped over"; my( $num, $text1, $text2 )= $entry =~ m{^ (\d+) \. \s+ (.*?) \s+-\s+ ( +.*?) $}x; say "$num|$text1|$text2";
gives
Use of uninitialized value $num in concatenation (.) or string at ./te +st.pl line 10. Use of uninitialized value $text1 in concatenation (.) or string at ./ +test.pl line 10. Use of uninitialized value $text2 in concatenation (.) or string at ./ +test.pl line 10. ||