Select Code to Download

use v5.14;
my $pattern = qr/#.{10}#.{13}#\./ms;
$_ = <<STRING;
...
14
19
25

use v5.14;

my $length = 20; # Must be higher than the length of the longest line
...
..#...#..#.##
.......#.#
...........

1, 2
1, 7
2, 1