Regex Hate

foreach my $mailbox (@mailboxes)
{
  if ($$mailbox[0] =~ /uc\.cox\.net/)
  {
   %info = $client->info($$mailbox[0]);
  }

  if ($$mailbox[0] =~ /user(\/([0-9a-fA-F]+))?\/(\d+)@([\w\.]+)/)
  {
    print "\$2 = $2\n";
    print "\$3 = $3\n";
    print "\$4 = $4\n";

    if (defined($2))
    {
      print "This mailbox has a hashy thing!\n";
    } else {
      print "This mailbox has no hashy thing. *sad panda*\n";
    }

  }
}