Select Code to Download

#!/usr/bin/perl -w
use strict;
...
$dat =~ s/size="10">(\d{1,2})iliX/size="10" text-anchor="end">$1iliX/g
+;
print $dat;
#size="10" text-anchor="end">20iliX 234bvc 234yyyyy size="10" text-anc
+hor="end">35iliX

my $dat = 'size="10">##ili22 234bvc 234yyyyy size="10">##ili33';
$dat =~ s/size="10"\>##ili(\d{1,2})/size="10" text-anchor="end">##ili$
+1/g;
print $dat;
#size="10" text-anchor="end">##ili22 234bvc 234yyyyy size="10" text-an
+chor="end">##ili33