retrieving numbers.

[Joe Smith]

if ($input_string =~ /^([0-9]*) /) { $my_number = $1; }

Any particular reason why you chose [0-9] instead of \d ?
The repeat character + would be more suitable than * in this case.

if ($input_string =~ /^(\d+)/ { $my_number = $1; }

-Joe