$_ = "ace";
my($a, $b, $c) = (/a/, /b/, /c/);