use strict;
use warnings;

while (<>) {
	s/\A...\K\Z/_/;
	print;
}