Search Results

Something like this?
awk '/RC No/{close(f);f=$4}{print >> f}' test.txt

/^RC No/ - Matches the pattern at the beginning of the line
NF means the number of fields and $NF means the last field

Or maybe something like:
awk '/^TD/{close(f);f=$2}{print >> f}' file

Try:perl -n0e 'while (/TD.*?(?=TD|$)/sg){$x=$&;$x=~/TD:\s*(\w+)/;open $f,">>","$1";print $f $x; close $f}' file

You could do a while read line, checking if line starts with 'As of'.
If so, write tempvar to file, otherwise fill tempvar.

eg:
VAR=""
while read line;do
[ "As of" = "${line:0:5}" ] && \...

Try csplit?
[soliton@UAT:test]$ csplit test.txt "/As of/+1" {*}
36
52
51
0
[soliton@UAT:test]$ cat xx00
aaaaa
bbbbbbb
cccccccccc
As of 2013
[soliton@UAT:test]$ cat xx01
ddddddddd...