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

chomp;
printf "%sUF,A,Y,9,U\n", $_;