[nemur]

здесь строка $_ разделяется по знаку ";" и кладется в массив
@string = split /\;/;
один из возможных вариантов модификации -- использовать регулярное выражение:
@string = /(.*?)\;(.*?)\;(.*?)\;(.*)\;(.*?)\;(.*?)\;(.*?)\;(.*?)\;(.*?)/;