my $Satz = "Eine Rose ist eine Rose ist eine Rose.";
my $Such = "Rose";
my $Treffer;

while($Satz =~ /$Such/g) 
  {
  $Treffer = pos($Satz) - length($Such);
  print "$Satz\n";
  print " " x $Treffer, "| $Treffer\n\n";
  }