use strict;
use warnings;
use Switch;

open (FILE, shift)||die $!;

while(<FILE>){
 
 switch ($.) {
	 case 1 { (m/^12345.67890$/) ? (print "Line $. \"$&\" Matched\n") : (print "Line $. Not Matched\n"); }
	 case 2 { (m/^13456.12345$/) ? (print "Line $. \"$&\" Matched\n") : (print "Line $. Not Matched\n"); }
	 case [3..5]{ (m/^\d+$/) ? (print "Line $. \"$&\" Matched\n") : (print "Line $. Not Matched\n"); }
 }
 
}

close(FILE);