# ... print STDERR "/$regexp/\n"; $throw_away = ($window =~ /$regexp/ism) ? 'TRUE' : 'FALSE'; # ...