my $s = "hello there <here I am> today is sunny";
if ($s =~ /<([^>]*?)>/) {
  print "match: $1\n";
}