Slide 10 of 12
Notes:
perl -ne "print $1 if m/(^own.*I)/" testfile.txt
perl -ne "print $1 if m/(^own.*?I)/" testfile.txt