#!/usr/bin/perl use strict; while( <DATA> ) { foreach ( split "</b>" ) { (my $name) = $_ =~ /\s?\w.*\<b\>(\w+.*)/; print "$name\n" if ( defined( $name ) ); } } __DATA__ <td>Suggested Categories or Articles</td><td> <b>personal injury</b> < +font size="-3" face="Verdana"> (0.56)</font><br><b>accident lawyers</ +b> <font size="-3" face="Verdana"> ( 0.4)</font><br><b>attorneys</b> <font size="-3" face="Verdana"> (0.35) +</font><br><b>law firms</b> <font size="-3" face="Verdana"> (0.32)</f +ont><br><b>litigation</b> <font size ="-3" face="Verdana"> (0.32)</font><br></td>
In reply to Re: Parse into array
by bichonfrise74
in thread Parse into array
by vit
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |