Select Code to Download

perl -pibak -e 's/^\s.*//; s/\[\.\]/./g;' filename

#!/usr/bin/perl
use warnings;
...
    $line =~ s/\[\.\]/./g;
    push @urls, $line;
}

#!/usr/bin/perl
use warnings;
...
    s/\[\.\]/./g;
    push @urls, $_;
}