Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
my @lines15 = grep {15 == length} @lines;

print join "\n", @lines15;

Select or download this
```
123456789012345
123456789012xxx
```