print STDOUT join ("font face=\"courier\"><p>" substr ($strings[$_], $x, $line_length), $/ for (0..2)) "</font><p>";