sub getLine { $_textBuffer =~ m/^(.{$_rockWidth})(.*)$/; $_textBuffer = $2; my $rtn = $1; $_textBuffer.= '=' x ($_rockWidth - length($_textBuffer)) if (length($_textBuffer) < $_rockWidth); ## JUST IN CASE... return $rtn; }