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