Perl regular Expression

Jeg har det svært med reg exp

Jeg ville gerne i PERL have ændret  adresser, så de kan bruges i link til findvej.dk, sådan:
Eksempel:
" Vestre Strandvej 37 bla bla --> Vestre Strandvej37, "
Det er at fjerne et mellemrum, hvis det står foran et nummer og sætte et komma efter samme nummer, samt slette alt der stod efter nummeret.