Split a long field over multiple lines
#!/usr/local/bin/perl -w
while (<ARGV>)
{
chomp;
($number,$type,$name,$price,$desc) = split (/\|/);
write;
}
format STDOUT =
@>>>> @|||||| @<<<<<<<<< @<<<<<<<<<<<<< $@####.##
^<<<<<<<<<<<<<<<<<<<<<<<<<
$,,$number,$type,$name,$price,$desc
~ ^<<<<<<<<<<<<<<<<<<<<<<<<<
$desc
~ ^<<<<<<<<<<<<<<<<<<<<<<<<<
$desc
.
Related examples in the same category