#!/usr/local/bin/perl -w while (<ARGV>) { chomp; ($number,$type,$name,$price,$desc) = split (/\|/); write; } format STDOUT = @>>>> @|||||| @<<<<<<<<< @<<<<<<<<<<<<< $@####.## ^<<<<<<<<<<<<<<<<<<<<<<<<< $,,$number,$type,$name,$price,$desc ~ ^<<<<<<<<<<<<<<<<<<<<<<<<< $desc ~ ^<<<<<<<<<<<<<<<<<<<<<<<<< $desc .