use List::Util; 
$name =~ /\.([^.]*)\z/ and 
    List::Util::first { $1 eq $_ } qw"sdp rtsp rts mov whatever" or 
    die "wrong extension"

##</code><code>##

.vfw .flc.fli .wav