Select Code to Download

#!/usr/bin/perl

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

#!/usr/bin/perl

...
my $foo;

print "test: " . ($foo = 1) . ($foo = 2) . ($foo = 3), "\n";