$text = "xcystartsdhjsXYZ:joeblow@mail.cpEwrendrwerwep"; 
 
 
if ($text =~ /\bXYZ:\b(.*?)\b@mail.cp\b/) { 
    $result = $1; 
    # do something with results 
    print $result, $1; 
}