my $printtag = "/* <sometag */";
    my $matchtag = quotemeta $printtag;