$ perl -e'm/\/?(.*)\/([^\/]+\/?)/'