my $y = substr $x, index($x, '<');