#!/usr/bin/perl
use strict;
use warnings;
my $file = "result.html";
open FILE, "<", $file or die $!;
my @lines = <FILE>;
close FILE;
foreach my $line (@lines) {
  my ($a, $b, $c, $d, $rest) = split(/stelle wo geschnitten werden soll/, $line, 4);
  print "$a\n";
  print "$b\n";
  print "$c\n";
  print "$d\n";
  print "$rest\n";
}