$_ = "One Two Three Four Once ....";
/(\w+)\W+(\w+)/; # match first two words

print "1st Word is " . $1 . "\n";
print "2nd Word is " . $2 . "\n";
print "\n===== Another Example ======\n";

$_= '<tr align="right">
<td >  414&nbsp;</td><td nowrap align="left">&nbsp; 2011-12-06 &nbsp; 13:54</td><td >CST&nbsp;</td><td >Yes&nbsp;</td><td nowrap align="left">&nbsp; EWD</td><td >USGS&nbsp;</td><td >15300&nbsp;</td><td >26.21&nbsp;</td><td >  17&nbsp;</td><td >0.00&nbsp;</td><td nowrap align="left">&nbsp; 2.7</td><td >-0.04&nbsp;</td><td >0.43&nbsp;</td><td >GOOD&nbsp;</td><td nowrap align="left">&nbsp; CLER</td><td >MEAS&nbsp;</td><td >1&nbsp;</td><td >&nbsp;&nbsp;</td><td >BRDS&nbsp;</td><td >QADCP&nbsp;</td><td >VADCP&nbsp;</td><td >15300&nbsp;</td><td >289&nbsp;</td><td >4600&nbsp;</td><td >3.33&nbsp;</td><td >FIRM&nbsp;</td><td >GRVL&nbsp;</td><td >EVEN&nbsp;</td><td >UNSP&nbsp;</td><td >EVEN&nbsp;</td><td >STDY&nbsp;</td><td >DNST&nbsp;</td><td >20.00&nbsp;</td></tr>';
/<tr align="right">
<td >(.*?)<\/td><td nowrap align="left">(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td nowrap align="left">(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td nowrap align="left">(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td nowrap align="left">(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><td >(.*?)<\/td><\/tr>/;
print "1st Word is " . $1 . "\n";
print "2nd Word is " . $2 . "\n";
print "21st Word is " . $21 . "\n";
print "22nd Word is " . $22 . "\n";
print "23rd Word is " . $23 . "\n";
print "24th Word is " . $24 . "\n";
print "25th Word is " . $25 . "\n";
print "26th Word is " . $26 . "\n";
print "27th Word is " . $26 . "\n";
print "28th Word is " . $28 . "\n";