#!/usr/bin/perl -w

use strict;
use Prefix;

Prefix::pfx_show();

while(<>) {
    chomp;

    my $str = $_;
    my $val = Prefix::pfx_de($str);
    my $fnd = Prefix::pfx_find($val);
    my $res = Prefix::pfx_en($val);

    my ( $neg, $v1, $pfx ) = @$fnd;

    printf("<$str> <$val> <$neg/$v1/$pfx> <$res>\n");
}