#!/usr/local/bin/perl -w

    while (<ARGV>)
    {
        chomp;
        ($number,$type,$name,$price,$desc) = split (/\|/);
        write;
    }

    format STDOUT =
    @>>> @|||||| @<<<<<<<<< @<<<<<<<<<<<<< $@####.##
    @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    $.,$number,$type,$name,$price,$desc