#!/usr/bin/perl -w
use strict;

my @data = (<DATA>);

print "Unsorted Data\n";
print @data;

@data = sort 
        {  
           my ($tag_id_A,$tag_A) = $a =~ m/(\d+)/g;
           my ($tag_id_B,$tag_B) = $b =~ m/(\d+)/g;
           
                   $tag_A <=> $tag_B
                           or
                 $tag_id_A <=> $tag_id_B       
        }@data;

print "Sorted Data\n";
print @data;

#prints:
#Unsorted Data
#<tag id="12">125</tag>
#<tag id="9">125</tag>
#<tag id="17">15</tag>
#<tag id="6">179</tag>
#<tag id="7">2</tag>
#Sorted Data
#<tag id="7">2</tag>
#<tag id="17">15</tag>
#<tag id="9">125</tag>
#<tag id="12">125</tag>
#<tag id="6">179</tag>

__DATA__
<tag id="12">125</tag>
<tag id="9">125</tag>
<tag id="17">15</tag>
<tag id="6">179</tag>
<tag id="7">2</tag>