$ perl -e'm!\/?(.*)\/([^/]+\/?)!'
$ perl -e'm/\/?(.*)\/([^/]+\/?)/'
Unmatched [ before HERE mark in regex m//?(.*)/([ << HERE ^/ at -e line 1.