c:\@Work\Perl>perl -MO=Deparse -n -e
"chomp;  printf qq{%sUF,A,Y,9,U\n}, $_
"
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    printf "%sUF,A,Y,9,U\n", $_;
}
-e syntax OK