# entweder
my ($zahl) = split m!/!, $string, 2;