sub check_input {
	my $input = shift;

	return $input if length($input) != 1;
	if ($input eq 'q') {
		exit
	}
	elsif ($input eq 'b') {
		...
	}
	else {
		print 'not recognized';
	}
}