open($input, "<$file") or die "kann $file nicht oeffnen: $!\n";
while(<$input>) {
  if(/(\*irgendwas\*)/){
    s!$1!<font color='red'>$1</font>!g;
    print;
  }
}
close ($input);