dwnld.sh

#!/bin/bash

for i in {3..229}
do
    curl -s "http://twssstories.com/node?page=$i" | perl -n -e '/"([^"]*)" TWSS/ && print "$1\n"' >> twss_test.txt
done

cat eng-ca_web_2002_100K-sentences.txt | perl -n -e '/^[0-9]+\s+([A-Z].*\.)$/ && print "$1\n"' | grep " I " >> normal.txt
cat eng-uk_web_2002_100K-sentences.txt | perl -n -e '/^[0-9]+\s+([A-Z].*\.)$/ && print "$1\n"' | grep " I " >> normal.txt