#!/usr/bin/env perl
use strict;
use warnings;
use Scalar::Util;
use Perl6::Junction qw(any);
*is_num = \&Scalar::Util::looks_like_number;

# Eingabe
print "Bitte eine Zahl eingeben: ";
chomp( my $input = <STDIN> );

# Prüfen auf Zahl
if ( !is_num($input) ) {
    die "Eingabe ist keine Zahl\n";
}
if ( $input =~ m/\Ainf\z/ixms ) {
    die "Eingabe ist keine Zahl\n";
}

# any() test
if ( $input == any(1,2,3) ) {
    print "Benutzer hat 1,2 oder 3 eingegeben.\n";
}
else {
    print "Benutzer hat etwas anderes als 1,2,3 eingegeben.\n";
}

# Regex Test
if ( $input =~ m/\A(1|2|3)\z/xms ) {
    print "Benutzer hat 1,2 oder 3 eingegeben.\n";
}
else {
    print "Benutzer hat etwas anderes als 1,2,3 eingegeben.\n";
}