package main;
use strict;
use warnings;

my @lines = (
	'a string with numbers and letters 4678',
	'5678',
	'46789',
	' 4678',
	'4678',
);

tie *STDIN, 'Preempt::Stdin', @lines;
my $room = enter_number();
untie *STDIN;
print "Room:  $room\n";