# contrived example
my @paragraph;
for ( @lines ) {
    next if /^#/;
    $_ = lc $_;
    $_ =~ tr/ -~//cd;
    next if /foobar/;
    $_ =~ s/administration/admin/g;
    next if length $_ > 60;
    push @paragraph, $_;
}