#!/usr/local/bin/perl

while (<STDIN>) {
($username, $pid, $rest) = unpack("A10 A5 A*", $_);
print $username, $pid, "\n";
}