#!/usr/bin/perl -w
use strict;

my $content = qq(Text Text, blabla blabla blabla. Text Text blabla. Text Text Text Text Text Schluesselwort. 
Aufgabe: 1 Text Text Text S. 23 
Aufgabe: 2 Text Text S. 24 - 25 );

$content =~ s|.*?Schluesselwort||gsi;  
$content =~ s|(S\.[\d\-\s]+)|<seite>$1<\/seite>|gsi;

print $content."\n";