$_ = "\@abcde99\@";
if (/^([^ ]+)([a-z0-9]+)([^ ]+)$/) {
  # prints: *@abcde9*9*@*
  print "*$1*$2*$3*\n";
}