foreach (0..2)
{
     print '<font face="courier"><p>',
             substr($strings[$_], $x, $line_length),
             '</p></font>',
             $/;
}