if ($str =~ m/(thispart)/)
{ 
 $found = $1;
}