#!/usr/bin/perl -T

$| = 1;
while (<>)
{ $_ =~ s/\r\n$//;
  ($id) = /^(\d+)/;
  print STDOUT "$_ : USERID : UNIX : id$id\r\n";
  exit 0;
}