Perlで、引数としてファイル名を受け取った場合に（例えば　./test.pl）、そのファイルが
あるとされるディレクトリ（例でいう./）を調べて、そのファイルがあるかどうかをチェック
したいのですが、引数のファイル名最後のスラッシュ以後を消す方法が分かりません。

どういった正規表現を用いれば良いのでしょうか？