Select Code to Download

$baz = "mythingie";
($foo, $bar) = $baz =~ s/(my)(.*)//;

use strict; 
$baz = 'mythingie';
...
} else {
  warn 'I thought this would always match, but I must be wrong';
}