[jeffa@junk-box jeffa]$ perl -de 1
[...]
  DB<1> ($a,$b) = chop($c='hello');

  DB<2> print join'-',$a,$b;
o-
  DB<3> ($a,$b) = 'hello' =~ /(he)(l{2}o)/;

  DB<4> print join'-',$a,$b;
he-llo