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)); }