Help for this page

Select Code to Download

Select or download this

sub common {
    my $sep='';
...
    local $_=join $sep, @_;
    /^(.*)(.*)$sep\1(.*)/;
}