Help for this page

Select Code to Download

Select or download this

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