Advertisement
Advertisement
| 12.29.2007 at 08:29AM PST, ID: 23048887 | Points: 250 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: |
use strict;
$_ = "Samual Adams";
print "Starting string \$_ is: $_\n";
s{(\w+)(\w+)} {\$1 is:$1 \$2 is:$2}xms; #area of concern
print "$_\n";
$_ = "Samual Adams";
s{(\w+)[ ](\w+)} {\$1 is:$1 \$2 is:$2}xms;
print "$_\n";
|