for var_p in `locate -r /bin/perl$`; do echo $var_p; $var_p -v| grep '(v'; perl -le 'print "-" x 150;'; done