Win8 Strawberry 5.30.3.1 (64)  Mon 09/27/2021 15:56:45
C:\@Work\Perl\monks
>perl -Mstrict -Mwarnings -Mfeature=say
my $entry = "123. The Quick brown fox - jumped over";
my( $num, $text1, $text2 )= $entry =~ m{^ (\d+) \. \s+ (.*?) \s+-\s+ (.*?) $}x;
say "$num|$text1|$text2";
^Z
123|The Quick brown fox|jumped over