Select Code to Download

sub findInterleavedString {
...
    }
    return $index!=-1;
}

#!/usr/bin/perl -w

...
                rmgir => \&rmgir,
                rmgir_noprep => \&rmgir_noprep,
             };