#!/usr/local/bin/perl

@searchletters = ("a", "e", "i", "o", "u");
$inputline = <STDIN>;
foreach $letter (@searchletters) {
        printf("searching for $letter...\n");
        $location = length ($inputline);
        while (1) {
                $location = rindex ($inputline, $letter, $location);
                last if ($location == -1);
                print("\tfound at location $location\n");
                $location -= 1;
        }
}
