That will print the whole file regardless, I think you meant:

       perl -ne 'print if /regex/' file