Help for this page
my @data = map { join '', @$_[0..3],'R',@$_[4..6],'.',$_->[7], "\n" } ... $a->[3] cmp $b->[3] } map { [ /^(\d+)(\D+)(\d+)(\D*)R(\d+)(B?)(\d*)\.(\w+)$/ ] } <DATA>;
www.com | www.net | www.org
No recent polls found