perl -MRegexp::Common -E 'my $string = "EEH_ErrorCode=( 15, /* Component */ 65 /* Error */)"; say join("|", $string =~ m/($RE{num}{int})/g)'