String Perl

#!/usr/bin/perl -w
use strict;
$_ = "a Aa aA AaA aA A";
if (/a a/) {
    print "found\n";
}