#!/usr/local/bin/perl 

use warnings;
use strict;

use Pod::Peapod::Text;

my $obj=Pod::Peapod::Text->New;

local $/;
my $string = <>;

$obj->parse_string_document($string);