$source = 'VM';
$COB = '20080605';

if ( /^$source.*$COB/ ) {
  .... do something ...
}