use strict;
use warnings;
use 5.010;

my $line = 'hello world';

my ($subfamily) =  $line =~ /goodbye/;
#no match, and list context on the left, so m// returns ()

say "-->$subfamily<--";

if ($subfamily =~ /x/) {
    say 'yes';
}

--output:--
Use of uninitialized value $subfamily in concatenation (.) or string at perl.pl line 10.
--><--
Use of uninitialized value $subfamily in pattern match (m//) at perl.pl line 11.