sub I_want_a_number ($) { 
   my $val= shift;
   print $val, " produces ", 0+$val, "\n";
   }

I_want_a_number ("29 balloons");
I_want_a_number ("5.6.0");