Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
.vfw .flc.fli .wav
```