sub  attack :lvalue {
  substr($_[0], 2, 1) ;
}