my $var = 5;
print "$var liegt ",  $var =~ /^[3-7]$/ ? '' : 'nicht', ' in [3,7]'