正規表現のマッチで困っています。
バッチ処理で
C:\perl\bin\perl.exe C:\perl\bin\test.pl "%~f1"
と書かれたbatファイルがあり
test.plには

$filepass = shift @ARGV;
print $filepass."\n";
$filepass =~ m/^.*\\(.*)(_\d\d\d\.tsk)$/;
$filename = $1;
print $filename;

と書いてあり、
表ソ予第07話070717-215529_000.tsk
というファイルbatファイルにドラッグ&ドロップすると出力結果は

I:\cap\表ソ予第07話070717-215529_000.tsk
第07話070717-21552

となります。
$filenameには表ソ予第07話070717-215529
を格納したいのですが、どうすればよいでしょうか？