use Test::More 'tests' => 2; ok( 'sef.mlxhelp.com' =~ /(\.mlxhelp)\.com/, q{'sef.mlxhelp.com' matches} ); ok( 'www.mlxhelp.com' =~ /(\.mlxhelp)\.com/, q{'www.mlxhelp.com' matches} );