use strict;
my @row = ('/* Version: 1.11', '# Version: 1.11' , '* Version: 1.11' ,
+ 'Version: 1.11');


for (@row) {
print "$_ -> matches\n" if( ($_ =~/^([#;*\s+]|\/\*)?\s*version:?\s+(\d
++\.\d+|)/i));
}
[download]

-----------------------------------
--the good, the bad and the physi--
-----------------------------------