Rather than open the file:

perl -p -i.bak -e "s/^-//g" foo.dat
[download]

Update: Forgot that you wanted to uppercase stuff:

perl -p -i.bak -e "s/^-(.*)/uc($1)/e" foo.dat
[download]

Update #2: You might also try Mastering Regular Expressions