#!/usr/local/bin/perl

@searchletters = ("a", "e", "i", "o", "u");
$inputline = <STDIN>;
$len = length ($inputline);
foreach $letter (@searchletters) {
        print ("searching for $letter...\n");
        $currpos = 0;
        while ($currpos < $len) {
                $substring = substr ($inputline, $currpos, 1);
                if ($letter eq $substring) {
                        print("\tfound at location $currpos\n");
                }
                $currpos++;
        }
}
