#!/usr/bin/perl -w

$_ = "AAAbbAAA";
print "Found bbb\n" if m/bbb/;