#!/bin/sh
lsdvd | perl -ne '/Title: ([0-9][0-9]*)/ and $n = 0+$1; END { print "$n\n"; }'