use strict 'vars';

while (<>) {
  my %boundary_at;
  my $last_boundary;
  my @ticks = (" ") x (length $_);
  while (/\b/g) {
    $ticks[pos($_)] = "^";
  }
  print $_;
  print @ticks, "\n";
}