viewing paste Unknown #15808 | Perl

Posted on the
1 2 3 4 5 6 7 8
if($text =~ /{#(\d+)}(.*){(.*)}(.*){(.*)}/)
    {
        print($1);
        print($2);
        print($3);
        print($4);
        print($5);
    }
Viewed 875 times, submitted by Shikazu.