use strict 'vars';

while (<>) {
  my %boundary_at;
  my $last_boundary;
  while (/\b/g) {
    $last_boundary = pos($_);
    $boundary_at{$last_boundary} = 1;
  }
  for my $pos (0 .. $last_boundary) {
    if ($boundary_at{$pos}) {
      print "|";
    } else {
      print " ";
    }
  }
  print "\n\n";
}