#!/usr/bin/perl -w
use strict;

my $s1 = "AGCCATGTAGCTAACTCAGGTTACATGGGGATGACCCCGCGACTTGGATTAGAGTCTCTT";
print "$s1\n";

my $idx = -1;

my $start = 'ATG';

while (my $prefix = substr($s1, ++$idx, 3)) {
	last if length $prefix < 3;
	
	# check for start indicator
	next unless $prefix eq 'ATG';
	
	my $peptide = proteinseq(substr($s1, $idx));
	print "$peptide\n";
	}

sub proteinseq {
	my ($dna) = @_;
	
	my $dna_seq = '';
	for (my $i; $i < length($dna)-2; $i +=3) {
		my $codon = substr($dna, $i, 3);
		print "$codon\t";
		return $dna_seq if ($codon =~ /TA[GA]|TGA/);
		$dna_seq .= $codon;
	}
}