@pages[$PG]=~/(.*\nend\n).*/s; 
@pages[$PG]=$1 ;