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

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

print $_,"";
}