Select Code to Download

#!/usr/bin/perl
use strict;
...
while (my($s1, $s2)= each %exampledata) {
    print $s1,'+',$s2,' => ',merge_data($s1, $s2),"\n";
}

sub merge_data {
    local($_)= join("-", @_);
    s/(.+)-\1/$1/;
    return $_;
}

sub merge_data {
    local($_)= join("-", @_);
...
    }
    return $_;
}

sub merge_data {
    local($_)= join("-", @_);
...
    }
    return $_;
}