#!perl -w
# use strict;

# Typical line '101|14.95|Short Description|Long Description'

open (FH, 'c:/items.pl') or die "Couldn't open file, $!";
while (<FH>){
my ($item_number,$price,$short_desc,$long_desc) = split (/|/);
print "$item_number, $short_desc, $price, $long_desc\n";
};