#!/usr/bin/perl while() { if(m/|$1 style="display:block">|; print; } } __DATA__