#!/usr/bin/perl
#use strict;


open(addresslist, "<addresslist");
open(labelrun, ">labelrun");

my ($idnum,$name1,$name2,$address1,$address2,$city,$state,$zipcode,$taxid);

format label =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name1
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name2
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$address1
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$address2
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<, @< @<<<<<<<<<<
$city,$state,$zipcode
.

$oldhandle = select labelrun;
$~ = "label";
select ($oldhandle);

while(<addresslist>){
	$_=~m/^\"(.*?)\",\"(.*?)\",\"(.*?)\",\"(.*?)\",\"(.*?)\",\"(.*?)\",\"(.*?)\",\"(.*?)\",\"(.*?)\"$/;
	($idnum,$name1,$name2,$address1,$address2,$city,$state,$zipcode,$taxid)=($1,$2,$3,$4,$5,$6,$7,$8,$9);
	print labelrun "\n";
	write (labelrun);
	print labelrun "\n\n";
}
close labelrun;
close addresslist;
