#!/usr/bin/perl
use strict;
use warnings;

my @data;

while(<DATA>) {
	chomp;
	if((my $first = /^\$/) .. (my $last = /^!Data/)) {
		push @data, $_ unless $first || $last;
	}
}

print join "\n", @data;

__DATA__
!Data.
$
1-11-ABC22 (12:12)   ABC 12 Foo Bar Foo Bar
Foo Bar Foo Bar

2-15-ABC33 (12:12)   ABC 12 Foo Bar Foo Bar
Foo Bar Foo Bar
--
1-11-ABC33 (12:12)   ABC 12 Foo Bar Foo Bar
Foo bar Foo Bar
--
1-11-ABC33 (12:12)   ABC 12 Foo Bar Foo Bar
Foo abr Foo bar
Foo Bar
Foo Bar
Foo Bar
--
2-15-ABC45 (12:12)   ABC 12 Foo Bar Foo Bar
Foo Bar Foo Bar

3-33-ABC15 (12:12)   ABC 12 Foo Bar Foo Bar

!Data
*