#! perl -lw
while(<>){
last if /ATM Institution/;
}
while(<>){
    last if /green and yellow/;
    next unless /^\s*<td>/;
    next if /doPostBack/;
    chomp;
    print;
}
