use Modern::Perl;

say +(split ':')[0] while (<DATA>);