my ($substr) = $var =~ /(pattern)/;
print $substr, "\n"
   if defined $substr;