my @paragraph = map {;{
    next if /^#/;
    $_ = lc $_;
    $_ =~ tr/ -~//cd;
    next if /foobar/;
    $_ =~ s/administration/admin/g;
    next if length $_ > 60;
    $_
}} @lines;