ごめん。.wmvが抜けてた。改行もしてみた。また書き直さして。

while ( <STDIN> ) {
　　if ( $_ =~ /^(.*\.wmv)/ ) {
　　　　print $1,"\n";
　　}
}

つか、本当に↓みたいなファイルしか考慮してないお（＾ω＾）
/test/hoge/fugaaaa.wmv">gaeafaefewfwefwe
/test/hoge/fugabbbbbbb.wmv">faefaefefa
/test/hoge/fugaccccccccccc.wmv"><faefaefaefaef