use strict;
use warnings;

use Test::More tests => 1;

my $str = 'EEH_ErrorCode=( 15, /* Component */ 65 /* Error */)';
my $want = '15|65';

my $have = join ('|', $str =~ /(\d+)/ag);

is $have, $want;