#!/usr/bin/perl

# http://perlmonks.org/?node_id=1139246

use strict;
use warnings;

$_ = join '', <DATA>;

/#augment:A(.*)[\0-\377]*?#augment:B(.*)/ and print "$1 $2\n";

__DATA__
First line of the file used for filler
#augment:A Something One
Another line of text for filler
#augment:B Something Two
Last line of the file used for filler
[download]