use p:Simple;$value=get 'http://itknowledge.com/tpj/obfusc-4.html';$value=~s/.*<title>\s*//is;$value=~s/\s*<\/title>.*//is;
print main::STDOUT $value;