How about:

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

The lookbehind and lookahead assertions won't become part of $1.