Select Code to Download

$DataRead{'StringRead'} = substr($DataRead{'StringRead'}, -3);

$DataRead{'StringRead'} = substr($DataRead{'StringRead'}, 0, length($D
+ataRead{'StringRead'}) - 2);

#!/usr/bin/perl
use strict;
...
   print("You Entered: \[$DataRead->{'StringRead'}\]\[" . length($Data
+Read->{'StringRead'}) . "\]\nYou Ended with a \[$WhatIsIt\]\[$DataRea
+d->{'ExitValue'}\]\n");
   }
__END__