or download this
#!/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");
}