May 17
while ($x =~ /(\w+)/g) {
print "Word is $1, ends at position ", pos $x, "\n";
}
Leave a Reply
You must be logged in to post a comment.
while ($x =~ /(\w+)/g) {
print "Word is $1, ends at position ", pos $x, "\n";
}
You must be logged in to post a comment.
Recent Comments