Lineseperator Problem

[Struppi]

Hat jemand eine Idee, wo mein Fehler liegt?

  
#!/usr/bin/perl -w  
use strict;  
  
local $/ = "\n\n";  
while(<DATA>) {  
	chomp;  
	print "BEGIN $_ END\n";  
}  
  
__DATA__  
Ausgabe 1  
Ausgabe 2  
Ausgabe 3  
  
Ausgabe 1  
Ausgabe 2  
Ausgabe 3  
  
Ausgabe 1  
Ausgabe 2  
Ausgabe 3

Struppi.