if ( $contents =~ /line3/g ) {
  if ( $contents =~ /(line2-)(\w*)/g ) {
    print $2;
  }
}