use strict;
use warnings;

use Test::More tests => 1;

my $in = "int abc;\n.abc(abc)";
my $want = ['abc', '.abc', '(abc'];

my @have = $in =~ /([\.(]?abc)/g;

is_deeply \@have, $want;