$columns = 3;
$cnt     = $columns - 1;

$line =~ s/^(([^;]*;){$cnt}[^;]).*$/$1/;