#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11118049
use warnings;
use v5.10;

sub add_incr_suffix
{
  state $suffix = 'A';
  return "prefix-TEXT-" . $suffix++;
}

print 'Test ' .
    ( add_incr_suffix =~ /^prefix-*/p ? "${^POSTMATCH}" : '' ) . "," .
    ( add_incr_suffix =~ /^prefix-*/p ? "${^POSTMATCH}" : '' ) . "," .
    ( add_incr_suffix =~ /^prefix-*/p ? "${^POSTMATCH}" : '' ) . "\n";