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