local $/ = \5201;
while (<>) {
    chop;
    print;
}