my $result = rindex($input, '/');

if($result < 0) {
        #was muss hier stehen ?!?
}
else {
    $input = substr($input, $result+1, $slength);
}

print "output: ".$input . "\n";