#!/usr/bin/perl -W
use strict;
use warnings;
@ARGV = ('sonne','wolke5','45');
my $inhalt = '';
foreach (@ARGV){if ($_ =~ /^(\d+)$/){$inhalt = $1; last}}
print $inhalt;