Solution to Reddit Daily Programmer #223 - Garland

garland.pl

#!/usr/bin/env perl
use warnings;
use strict;

sub garland {
    use integer;
    my $word = shift;
    print "$word - ";
    my @word_array = split("", $word);
    my $length = @word_array;
    my $start = 2;

    while($start < $length) {
        my $match = 1;

        for(my $i = 0; $i < ($length - $start); $i++)
        {
            my $value = $start + $i;
            if($word_array[$i] ne $word_array[$start + $i]) {
                $match = 0;
                last;
            }
        }

        if($match) {
            my $final = $length - $start;
            print "$final\n";
            last;
        }

        if($start + 1 == $length)
        {
            print "No match\n";
        }

        $start++;
    }
}

garland("programmer");
garland("onion");
garland("alfalfa");
garland("ceramic");