#!/usr/bin/perl

$file = 'el.htm';
open(DATA, $file);
$data = <DATA>;
#$data =~s/<[^>]*>([^<]*)<\/[^>]*>/$1/gs;
#print $data;



while ($zeile=<DATA>){

 if ((rindex $zeile,"<p><b>") > 0) {

     print $zeile;
 }

}