#!/usr/bin/perl
$bmp = "-";
while (<>)
{
    my $line = $_;
    if ($line =~ /%P\|([^|]*)/)
    {
        $bmp = $1;
    }
    elsif ($line =~ /%pb\|?(.*)/)
    {
        @params = split(/\|/,$1);
        if (@params == 0)
        {
            print "%pb\n";
        }
        else
        {
            @newparams = {"-","-","-","-"};
            if (@params >= 1) # height -> height
            {
                $newparams[3] = $params[0];
            }
            if (@params >= 2) # leftpos -> x
            {
                $newparams[0] = $params[1];
            }
            if (@params >= 3) # rightpos -> width
            {
                $newparams[2] = $params[2] - $params[1];
            }
            if (@params >= 4) # toppos -> y
            {
                $newparams[1] = $params[3];
            }
            else
            {
                $newparams[1] = "-";
            }
            print "%pb|$bmp|$newparams[0]|$newparams[1]|$newparams[2]|$newparams[3]|\n";
        }
    }
    else
    {
        print $line;
    }
}