my ($inhalt) = grep { /^(\d+)$/ } @ARGV;