>perl -le"@_='abc'; print qr/[-@_]/;" (?-xism:[-abc])