Help for this page

Select Code to Download


  1. or download this
    use strict;
    
    while (<>) {
        /\bit (.*)[.?!]$/i and print $1,$/;
    }
    
  2. or download this
    perl proj2_2.pl part2.txt