perlgrep initial working test using minimal perl