#!/usr/bin/perl

use v5.10;

use strict;
use warnings;

my $line = 'Das ist eine Zeile Deiner Datei';
my @pos  = (1, 7, 10, 26); # diese Positionen sollen durch ';' ersetzt werden

say $line;

for my $pos ( @pos ) {
    substr $line, $pos-1, 1, ';';
}

say $line;