test12.pl to HTML.

index -|- end

Generated: Sat Oct 12 17:23:20 2013 from test12.pl 2012/06/11 215. text copy

#!/usr/bin/perl

use strict;
use warnings;

my $func = 'OF';
my $tail = '((void))';

if (($func =~ /^[A-Z]+$/) && ($tail =~ /^\(\(.+\)\)$/)) {
    print "OK\n";
} else {
    print "regex FAILED\n";
}

index -|- top

checked by tidy  Valid HTML 4.01 Transitional