if ($string eq m~^\d.._~ )  # eq oder == ?
{
    # "normal" appending
}