if ( $bold ) {
  $line =~ s/(S\.\s\d+(\s\-\d+)?)/<Seite>$1<\/Seite>/g;
  #noch ein paar sachen mehr
  print FILE $line;
}