perl -e '@x=qw(I have 100.01);$r=sprintf "%s %s %d\n",@x;print $r'
I have 100