my $regexp = qr/ (?: ( int | char | bool | long ) ) /x;