#~ my(@pun) = sort qw! ~ { } [ \ ] ^ _ ` : ; < = > @ # $ % ( ) * + / !;
#~ my(@pun2) = qw( - , . ? ! & '  " );
#~ my $pun = join '', map quotemeta, @pun;
#~ $pun = qr~[$pun]~;
my $pun = qr~[\#\$\%\(\)\*\+\/\:\;\<\=\>\@\[\\\]\^_\`\{\}\~]{3,}~;

if ( $node_text =~ /$pun/ ){
    if( !/<\/?c>/ or ! /<\/?code>/ ){
        die "Can't ask question without putting your code in code tags!";
    }
}
__END__