#!/usr/local/bin/perl -w
use strict;
my $string = 'abbbcddddfegrgrgddeeeeedd';
my @chars = split //,$string;
my $hold = '';
my $currentSequence = '';
my $longestSeq = '';
my $currentPosition = 0;
my $longestSequenceStartPosition;
foreach (@chars){
    my $currentCharacter = $_;
    $currentPosition += 1;
    if($hold eq $currentCharacter){
	$currentSequence .= $currentCharacter;
    }
    else{
	if(length($longestSeq) < length($currentSequence)){
	    $longestSeq = $currentSequence;
	    $longestSequenceStartPosition = ($currentPosition -1) - length($longestSeq);
	}
	$currentSequence = $currentCharacter;
	
   }
    $hold = $currentCharacter;
    
}
print "$string\n";
print "$longestSeq\n";
my $answer = '-' x length($string);
substr($answer,$longestSequenceStartPosition,length($longestSeq)) = $longestSeq;
print "$answer\n";