Perl Substr Outside Of Stringers In Stair Case Study Method