Perl Unclassified Changing text case utility

Source Code Snippet (edit)

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

my ($type, $string);

print "What type of case? (upper/lower):
";
while (<STDIN>) {
	chomp;
	if (/^(upper|lower)$/i) {
		$type = $_;
		last;
	} else {
		print "Invalid type please type upper or lower:
";
	}
}

print "Please enter your text:
";
chomp($string = <STDIN>);
given ($type) {
	when ("upper") { print "U$string" }
	when ("lower") { print "L$string" }
}

print "
";