use strict; use warnings; $_ = join '', ; my ($first, $second) = m|cingular">(.*?)
\n
\n(.*)|si; __DATA__ cingular">text to match here

all of this stuff no matter what BR tags or whatever is found should be matched