#!/usr/bin/awk -f

/<[tT][iI][tT][lL][eE]>/,/<\/[tT][iI][tT][lL][eE]>/ {
gsub("<\\/?[tT][iI][tT][lL][eE]>", "")
print > "title.tmp"
}

/<[bB][oO][dD][yY][^>]*>/,/<\/[bB][oO][dD][yY]>/ {
gsub("<\\/?[bB][oO][dD][yY][^>]*>", "")
print > "body.tmp"
}

/<[mM][eE][tT][aA][^>]*>/ {
print > "meta.tmp"
}