# example 8 # $_ = "I make a black pencil line.\n"; if (/[q-zQ-Z]/) { print $_ ; }