#!perl -pl
s/\PP+/$&/gee;$_=eval