s/<[^>fc\d+]*>//gi;
1 2 3 4 5 6 7 8 9
#!/usr/bin/perl use strict; use warnings; my $content = qq~<html><body>Hallo<fc>Test</body></html>~; $content =~ s/<(?!fc).*?>//g; print $content