tapeutil -f /dev/smc0 inventory |
    perl -nle'
        BEGIN { $slot = shift(@ARGV); }
        if (/^Slot address (\d+)$/) {
            $ok = $slot == $1;
        }
        elsif ($ok && /^ *Volume Tag[ .]+(.*)/) {
            print ++($vol=$1);
            last;
        }
    ' 1123