sub iregex { qr/ ... /ix }

1)  my $regex = iregex()
    if ($isbn =~ m/$regex/ ) { print "Matched!\n }

2)  my $regex = iregex()
    if ($isbn =~ $regex ) { print "Matched!\n }

3)  if ($isbn =~ iregex() ) { print "Matched!\n }