#!/usr/bin/perl -Tw
use strict;
$|++;

my $valid    ='realgoodname';
my $invalid  ='bad name';
my ($test1,$test2);

if ($valid =~ /^([a-z]+)$/i){
	$test1=$1;
}
{
$invalid =~ /^([a-z]+)$/i;
$test2=$1;
die "Invalid test2" unless $test2;
}
print "Valid word\t= $valid\nInvalid word\t= $invalid\n\n";
print "Valid test\t= $test1\nInvalid test\t= $test2\n";

exit();