my ( $piece ) = 
    $strange_thing =~ m/($large)|$wei($rd)|($stra)$nge/;