#!/bin/perl

while (<>) {
  chop;
  s/.*<//;
  s/>.*//;
  print "$_\n";
}