#!/usr/bin/perl

# das folgende sollte in *jedem* Programm/Modul zu finden sein
use strict;
use warnings;

# für das lesen und schreiben von Dateien
use IO::File;

# Datei mit den Datensätzen
my $file = 'wuw.txt';

# lese Blockweise ein. Ein Block wird von "@@"
# mit Zeilenendezeichen begrenzt
local $/ = '@@' . "\n";

# öffne Datei zum Lesen
my $fh = IO::File->new( $file, 'r' ) or die $!;
while( my $block = <$fh> ) {

    # entferne das "@@"
    chomp $block;

    # in $. ist die "Nummer" des Blocks
    # öffne Datei zum Schreiben
    my $out = IO::File->new( $. . '.txt', 'w' ) or die $!;

    $out->print( $block );
}