string spørgsmål i perl.

Hej!
jeg skal rette i et script, hvor der skal ændres i en string værdi.

variablen har f.eks. navnet vikarburau23230.1234, men kan variere i størrelse(antal chars)

Det jeg vil er at fjerne de sidste 3 chars inden . altså i dette tilfælde 230

Jeg ved at perl har rigtig mange string funktioner, men tit og ofte er det noget med \/|~$@ og alt muligt andet jeg ikke rigtigt forstår. Er der nogen der vil hjælpe mig. Jeg plejer at arbejde med length og substr funktionen, men det er vist ikke nok her.