my $n = 1;
my @words = split / /, $line;
splice @words, $n, 0, "du";
$line = join " ", @words;