Select Code to Download

$line = "x" x 38 . "\n";

sub test {
...
test( "xxx$line" x 4 );  # 41 x 4
test( "xx$line" x 3 );   # 40 x 3
test( "x$line" x 5 );    # 39 x 5

yes
yes
no
yes
yes