$regel = "Username; abcd; Username"; 
$regel =~ s/Username/\nGebruikersnaam/sgm; 
print "(BEGIN)$regel(END)\n";
__END__
output:
(BEGIN)                 # <-- \n here
Gebruikersnaam; abcd;   # <-- and \n here 
Gebruikersnaam(END)