my ($earliest) = $str =~ /(\Q$first\E|\Q$second\E)/;
print( "$earliest\n" ) if defined( $earliest );