Select Code to Download

my ($match) = grep defined, $string =~ /<(ab)>|(ab)/;

my ($quoted,$match) = $string =~ /(<)?(ab)(?(1)>)/x;
# or:
my $match = ($string =~ /(<)?(ab)(?(1)>)/)[1];