in reply to Regexp with optional group containing backreference
$_ = join '', <DATA>; while (m/(.*)<br \/>\n(?:(.*)<br \/>\n)?(.*)<br \/><br \/>/g) { print "$1 - $2 - $3\n\n"; } __DATA__ Name<br /> Address<br /> URL<br /><br /> Name2<br /> Address2<br /><br />
|
|---|