my ($type, $index, $table) 
  = "CREATE UNIQUE CLUSTERED INDEX [eaart] ON [dbo].[fvbuch]" 
  =~ m/\w+\s+(UNIQUE)?.*\[(\w+)\]\s+ON\s+.*\.\[(\w+)\]/i;

print "$type, $index, $table\n";