(read-from-minibuffer "Replace region command: " '("perl -ple \'\'" . 12 ))