Select Code to Download

use strict;
#use warnings;

...
    my $name = $1 if $s =~ /(bob)/;
    warn $name || 'undef';
}

undef at - line 7.
bob at - line 7.
undef at - line 7.
bob at - line 7.
undef at - line 7.