compdef _comp_perl_rename perl-rename; _comp_perl_rename () { _arguments -S -s {-b,--backup}'[make a backup of each existing destionation file]' {-c,--copy}'[copy files instead of rename]' {-C,--cmd,--command}'[specify command to use instead of rename]' {-B,--prefix}'[set backup filename prefix]:backup filename prefix' {-f,--force}'[do not prompt before overwriting]' '(*)'{-h,--help}'[display help and exit]' {-i,--interactive}'[prompt before overwrite]' {-l,--link-only}'[hard link files instead of rename]' {-n,--just-print,--dry-run}'[don'"'"'t rename, implies --verbose]' {-s,--stdin}'[read filenames from standard input]' {--no-s,--no-stdin}'[don'"'"'t read filenames from standard input]' '(*)'--version'[output version information and exit]' {-v,--verbose}'[explain what is being done]' {-V,--version-control}'[set backup method]:backup method:(({none,off}\:never\ make\ backups\ \(even\ if\ --backup\ is\ given\) {numbered,t}\:make\ numbered\ backups {existing,nil}\:numbered\ if\ numbered\ backups\ exist,\ simple\ otherwise {simple,never}\:always\ make\ simple\ backups))' {-Y,--basename-prefix}'[set backup file basename prefix]:backup basename prefix' {-z,-S,--suffix}'[set backup filename suffix]:backup filename suffix' '1:perl expression' '*:: :_files'; };
