:D "old style" that is backwards compatible

 s{ (...) | (...) | ... }{ RepReplace($1,$2,$3); }ge;
sub RepReplace {
my( $link, $dig3, $num4 ) = @_;
if( defined $link ){
    return $link; ### change nothing
}
...
[download]