sub careful {
    my( $string, $number ) = @_;
    {
        use warnings ':caller';
        $string = "$string";
        $number = 0+$number;
    }
    ...
}

##</code><code>##

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