Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I have lines of data, all begin with a number. For lines which have a " - " or " " after the number, but before the next piece of text I'd like to replace this with a ". ". example data
1234 - Foo 56778 Bar 9999. Baz
desired output
1234. Foo 56778. Bar 9999. Baz