Re^7: Reg Exp to handle variations in the matched pattern

That pretty much was code to tag a text file:

open(MYINPUTFILE, "<sdnew02.txt");

while (<MYINPUTFILE>){
$_ =~ s/(\s-)$/\<tag\>$1<\/tag\>/g;
$_ =~ s/(:)$/\<tag\>$1<\/tag\>/g;

print $_,"";
}
[download]

All I've done is wrap tags around the found object and stick in a global modifier. replace the search regex and tags with whatever you want to tag. It won't quite work around your line breaks, but you can start from there.

Comment on Re^7: Reg Exp to handle variations in the matched pattern Download Code