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