Wed 04/17/2002 18:43:43.28
C:\>perl -MO=Deparse -e "@X=split /p/,'1pp'"