Miscellany

#!/usr/bin/perl -w

use strict;

my $code = "/* FIXME: something*/\n somecode();\n /* FIXME: anotherthing */ \n again();\n";
$code =~ s/\/\* FIXME:.*\*\///s;
print $code;