my ($var) = $content =~ /(.{3}\-a99\-9)/;
$var = $1;