perldoc perlrun, the -p option always prints the whole line, either use -n instead or do something like this: