#!/usr/bin/perl -l
$_ = '<left>no<right>yes';
/<(.*?)>y/s;
print $1;
/<([^>]*)>y/s;
print $1;
__END__
left>no<right
right