my @data = split /(?<=!),(?=!)/,$_;