use strict;
use warnings;
my $line;
while($line=<>){
        chomp $line;
        $line =~ s/(.{5})(.{4})(.*)/$1$2 $2$3/;
        $line =~ s/(.{11}).(.*)/$1Y$2/;
        print $line."\n";
}