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

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

print $_,"";
}