if ($var =~ /(pattern)/) {
   print "$1\n";
}