That's got it Athanasius, thank you. Once you explained what I was doing and showed the folly of capturing what I didn't need, it all came together.
0. Amber B. was harmed by J. 1. Kim B. was harmed by B F K. 2. Kim W. was harmed by A I J.
The regexes are much tidier now. I still think I need to strip off whitespace on the RHS. I suppose I could try to roll it all into one if I get ambitious, but I think it adds legibility to make it a different step:
for (@name) { s/\s+$//; my $int = s/^(\d+\.\s+\w+\s+\w).*$/$1\. /; say "int is $int"; }
for (@harm) { s/\s+$//; my $int = s/^\d+\.\s+(\w.*)$/was harmed by $1\./; say "schmint is $int"; }
This will do nicely for now, but I'm open to any other opinions.
In reply to Re^2: combining lists along with a regex
by Aldebaran
in thread combining lists along with a regex
by Aldebaran
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |