#!/usr/local/bin/perl5

while ($l=<STDIN>)
  {
  $l =~ s/<[^>]*>//g;
  print $l;
  }