#!/usr/bin/perl

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

if ($ARGV[0]) {
    $in = $ARGV[0];
    $arg = 1;
}
unless ($arg) {
    print "\nInput file: ";
    chomp($in = <STDIN>);
}
print 'Limit (default 10): ';
chomp($limit = <STDIN>);
unless ($limit) {
    $limit = 10;
}
open IN, $in;
open OUT, ">cutted-$in";
printf "\nWorking...";
while (defined($_ = <IN>)) {
    chomp($line = $_);
    if ($line =~ /^([\w\W]{$limit})/) {
        print OUT "$1\n";
    }
}
close OUT;
print qq[\n\n[*] Done... Check out the file "cutted-$in"\n\n];