AB1\tA{Daniel Wright}\sA{Jack Smith}\sB{Jane Goodwin}
QW1\tA{Samantha Patton}\sC{Timothy Eeckles}
AR2\tA{Jane Goodwin}

##</code><code>##

Jane Goodwin 2
Daniel Wright 1
Jack Smith 1
Samantha Patton 1
Timothy Eeckles 1

##</code><code>##

if ($line =~ m/{(.*?)}/g) {
	$customer_name = $1;
	push (@Customer_List, $customer_name);