#!/usr/bin/perl

# Script hecho para neiko guapa con cariño de freising
#     este software es una prueba de amor y como tal puede
#     ser considerado el equivalente a pagar una fanta
#     (c) 2015

my $filename = shift @ARGV || die "\nUsage: script.pl filename\n\n";

my @urls = ();
open(TXT,$filename);
foreach my $line ( <TXT> ) {
  my @pieces = split(/\s+|\t+/,$line);
  map { $_ =~ m/box.jisko.net\/([^\b"]+)/gi; push(@urls,$1); } @pieces;
}
close(TXT);

foreach my $url ( @urls ) {
  print "URL => http://box.jisko.net/$url\n";
}