#!/usr/bin/perl
while(<>)
{
    s!/pub/doc/manual/html/pod/!./!;
    print;
}