use warnings;
use strict;
use v5.10;

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

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