#!/usr/bin/perl
$line = '<log dest="calllog"> directory <value expr="callRecDirPath"/>';
if ( $line =~ /<(\w(?:[^ \/>]+))(?:(?:(?:\s+)([^=>]+)\s*=\s*("|')([^\3]*)\3))\s*\/>/) {
        print ("1=" . $1. "\n2=" . $2 . "\n3=" . $3 . "\n4=" . $4 . "\n5=" . $5 . "\n");
}