#!/usr/bin/perl # Sorts simple semantic versions. use v5.18; my @versions = ; sub num { $_ = shift; s/^v//; sprintf "%09i%09i%09i", split /\./; } print(grep {s,^,v,} sort {num($a) <=> num($b)} grep {s,^v,,} @versions)