A fairly simple regex will take care of that.
{ local $_; while (<>) { /it (.*)[.?,]$/i and print $1, $/; } }
Update: ++davidrw's points are accurate and easily corrected. I'll follow his lead and leave the modifications as an exercise. Also, you may wish to allow for any amount of any sort of whitespace after "it".
After Compline,
Zaxo
In reply to Re: Help please
by Zaxo
in thread Help please
by Stud_Perl
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |