use warnings;
    ...
    sloppy( "$string", 0+$number );