#!"C:\perl\bin\perl.exe"

use warnings;
use strict;

open(INFILE, '<', 'test_data.txt') or die("open failed: $!");

while (<INFILE>) {
	my ($ezb, $numbers) = split(';',$_);
	my( $pre, $in, $post )= $numbers =~ /^ ([^()]*) \( ([^()]*) \) ([^()]*) $/x;
	#my @number_split = split(',', $numbers);
	print "$pre\t$in\t$post\n";
}