.
.
my $out = `shell_script`;
if (! $out || $out !~ /\d/) {
    log_error;
    $out = `alternate_method`;
}

`bind_cpu $out`;
.
.