>>781
if ($n =~ /[1-9]\d{2}/ and 550 <= $&) { マッチ; }