Help for this page
use strict; use warnings; ... } print $string, q{-} x 25, qq{\n};
kjdfjdfXYZewfkfABClkjfef sahasjABCsjhksfhABCsjsjfs ... oreweou999999lkjfef xcvmvbbbvABCdjf999999jfdkjf999999hfdhgfABCyeryerXYZffjfs -------------------------