last if  $somelongvarname =~ /somregexp/;