This is roughly what I am trying to do. Surround lower case strings within a
string with tags.
===========================================================
$msgText="THIS IS MY test STRING";
$msgText =~ m/ [a-z]+ /; #or $msgText =~ /\s[a-z]+\s/;
if(defined($1)){
$1=~ s/\s+//g;
$msgText =~ s/$1/ <bold>$1<\/bold> /;
}
Print "\n$msgText";
=======================================================
I get the following:
THIS IS MY test STRING
But I wanted expected this:
THIS IS MY <bold>test<\/bold> STRING
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
