Select Code to Download

@text_lines = <STDIN>;
chomp($text_lines);

use warnings;
use strict;

$column = <STDIN>;

say "$ruler" x $column;

rrrrr eeeeee tyyyyy

c:\@Work\Perl\monks>perl -le
"use 5.010;
...
now is the time for all good men
      x
foo bar