#!/usr/bin/perl -w

use strict;

print "Enter filename, CTRL+C to break: ";
while (<>) {
    chomp;
    if (/^[a-z][a-z0-9]{2,7}$/i) { print "Filename OK\n"; }
    else { print "Filename sucks, input a better one!\n"; }
}
[download]