binmode STDIN;
binmode STDOUT;

$/ = '1397';

while (<>) {
	s/1397$/\0\0\0\0/;
	print;
}