#!/usr/bin/perl
use warnings;
use strict;

while (my $line = <>) {
    my $last = ( split m{/}, $line )[-1];
    print "$last" if $last =~ /^[0-9]+$/;
}