my $x = 'lalala <abc>';
substr( $x, 0, index( $x, '<' ), '' );
print $x, "\n"; # gibt <abc>