In the following code, I am inserting 2 tab characters \t\t after every instance where a 2 digit number in a long string is preceded by 2 spaces and followed by a space.

I am using substitution, but wonder if there is a simple one-liner that will add the \t\t for any number between 10 and 99.

`$all =~ s/ 95 / 95\t\t/g;
$all =~ s/ 80 / 80\t\t/g;
$all =~ s/ 75 / 75\t\t/g;
$all =~ s/ 70 / 70\t\t/g;
$all =~ s/ 65 / 65\t\t/g;
$all =~ s/ 60 / 60\t\t/g;
$all =~ s/ 50 / 50\t\t/g;
$all =~ s/ 40 / 40\t\t/g;
$all =~ s/ 33 / 33\t\t/g;
`

Comment onsimplifying substitutionDownloadCode