use re 'debug';

• use re 'debug';

• my $debug_re =qr/[sf][to][ro]/;

• no re 'debug';

• 'str'=~/$debug_re/;

• 'foo'=~/[sf][to][ro]/;