if($text =~ /{#(\d+)}(.*){(.*)}(.*){(.*)}/)
    {
        print($1);
        print($2);
        print($3);
        print($4);
        print($5);
    }