Select Code to Download

$_ = 'foo\$bar';
{
 if(m/\G((?:\\\$|\$)\w+)/gc or m/\G(\w+)/gc) {
...
  redo;
 }
}

token: 'foo'
token: '\$bar'

token: 'foo'
token: '$bar'