#!/bin/sh
lsdvd | perl -ne '/Title: (\d+), Length: (\d+):(\d+):(\d+)\.(\d+)/ and $2*3600+$3*60+$4 != 0 and print $1+0, "\n";'