Help for this page
#!/usr/bin/perl -w use strict; ... my @lines15 = grep {15 == length} @lines; print join "\n", @lines15;
123456789012345 123456789012xxx