my @input_lines = <main::DATA>;
my $input_string = join /\n/, @input_lines; my @split_lines = split(/\s*[#\n\r]+\s*/, $input_string); print "$_\n" for @split_lines;
__DATA__
google.com/test
yahoo.com/test
##############
somethingelse.com/test
##############
12345
bXkgQGlucHV0X2xpbmVzID0gPG1haW46OkRBVEE+OwpteSAkaW5wdXRfc3RyaW5nID0gam9pbiAvXG4vLCBAaW5wdXRfbGluZXM7IApteSBAc3BsaXRfbGluZXMgPSBzcGxpdCgvXHMqWyNcblxyXStccyovLCAkaW5wdXRfc3RyaW5nKTsKcHJpbnQgIiRfXG4iIGZvciBAc3BsaXRfbGluZXM7CgpfX0RBVEFfXwpnb29nbGUuY29tL3Rlc3QgCnlhaG9vLmNvbS90ZXN0IAojIyMjIyMjIyMjIyMjIyAKc29tZXRoaW5nZWxzZS5jb20vdGVzdCAKIyMjIyMjIyMjIyMjIyMgCjEyMzQ1