#!/usr/bin/perl

# Coded by Trizen
# Email: echo dHJpemVueEBnbWFpbC5jb20K | base64 -d
# Website: http://trizen.go.ro

sub usage {
    print "$0 eliminates lines that contains more than 'n' characters.\n
usage: $0 input.txt -o output.txt [limit_number]\n";
    exit;
}

my ($i, $file, $limit) = 0;
my $output = *STDOUT;
for my $arg (@ARGV) {
    ++$i;
    if ($arg eq '-o') {
        my $output_file = $ARGV[$i] // usage();
        open $output, '>', $output_file or die $!;
    }
    elsif (not defined $file and -f $arg) {
        $file = $arg;
    }
    elsif ($arg =~ /^\d+$/) {
        $limit = $arg;
    }
}

if (!defined $file or !defined $limit) {
    usage();
}

open my $fh, '<', $file or die $!;
while (defined(my $line = <$fh>)) {
    if (length($line) - 1 <= $limit) {
        print {$output} $line;
    }
}

close $fh;
close $output;