$ perl -MFile::Basename -wE 'say basename("foo.psd",".psd")'
foo