#!/usr/bin/perl
use strict;
use warnings;

my $tail = ".D(next_out_en), .CP(n16), .CDN(n48), .Q(\n";

print "Matched: \$1 '$1', \$2: '$2', \$3: '$3'\n"
    if $tail =~ /^\s*(.+)\s+\.\s*CP\s*\(\s*(\S+)\s*\)\s*\,\s+(.+)\s*\n/i;