#!/usr/bin/perl

# skip first line
$_ = <>;

# create buffer
my @lines;

while (<>) {
    push( @lines, $_ );
    if (s/fcd8859-15/iso10646-1/) {
        push( @lines, $_ );
    }
}

print scalar( @lines), "\n";
for (@lines) {
    print;
}