Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
Test 
TEXT-A, TEXT-B, TEXT-C
```