my @text = <DATA>;
$p -> parse ( @text );