in reply to Regular Expression

u can try like this....

$_ =~ /<body[^>]*>/;

* Frank *

In Section Seekers of Perl Wisdom