Select Code to Download

<P_Normal><list-bull></P_Normal>
<P_list-bull(1)>Use Microsoft Windows accessibility options to: </P_li
+st-bull(1)>
<P_list-simple(2)>&#x2013;   Magnify the display </P_list-simple(2)>
...
<P_list-bull(1)>Adjust background colours and fonts to assist dyslexic
+ learners. </P_list-bull(1)>
<P_list-bull(1)>&#x003C;pg&#x003E;13&#x003C;/pg&#x003E;Provide feedbac
+k on written work using the comments facility and track changes rathe
+r than handwritten notes, so that the learners can change character s
+ize or use a text to speech application to hear feedback.</P_list-bul
+l(1)>
</list-bull>

<list list-type="bullet">
<list-item><p>Use Microsoft Windows accessibility options to:
<list list-type="simple">
...
<list-item><p>Adjust background colours and fonts to assist dyslexic l
+earners.</p></list-item>
<list-item><p><xref ref-type="page" id="page_13"/>Provide feedback on 
+written work using the comments facility and track changes rather tha
+n handwritten notes, so that the learners can change character size o
+r use a text to speech application to hear feedback.</p></list-item>
</list>

use strict;
my $inputfile = $ARGV[0];

...
open (OUT,">$inputfile\.xml") || die ("Can't open the output file for 
+writing");
print OUT $str;
close (OUT);