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