sub printf_like {
    my ($fmt, $flag) = (shift(), 1);
    printf $fmt, $_ or $flag = 0 for @_;
    return $flag;
}