How to a parse a string in perl

[FLAHERTY, JIM-CONT]

 I want to slice up this variable into a single variable and loop until its
empty
The variable is seperated via  !  explnation points and I want the numbers.
This string can be various in length ? Note it doesnt end with that
delimiter. Help
 
example 
 
  $jims = "!23!45!67