{
    local $_;
    while (<>) {
        /it (.*)[.?,]$/i and print $1, $/;
    }
}