#!/usr/local/bin/perl

# new line at the end of each print, automatically
$\ = "\n";

$string = "soggy vegetables in the crisper";

print $string =~ /[s-z]/;