for (@array) {
   if($_ =~ regex mit ()) {
      $var = $1;
   }

}